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ABSTRACT 


Automated  Vehicle  Scheduling  (AVS)  is  a  software 
package  designed  to  assist  in  scheduling  palletized 
cargo  delivery  to  warehouses  in  a  Navy  Supply  Center. 
The  package  consists  of  two  scheduling  programs,  which 
schedule  regular  and  emergency  orders,  respectively, 
and  a  transaction  history  file  update/report  program. 


ADMINISTRATIVE  INFORMATION 

This  study  was  authorized  by  the  Naval  Supply  Systems  Command  with 
funding  under  Task  Area  53/531/091. 


INTRODUCTION 

Automated  Vehicle  Scheduling  (AVS)  is  a  software  package  designed 
to  assist  in  scheduling  palletized  cargo  delivery  among  warehouses  in 
a  Navy  Supply  Center  (NSC).  The  package  consists  of  two  scheduling 
programs,  AVS1  and  AVS2,  which  schedule,  respectively,  regular  and 
emergency  orders,  and  a  transaction  history  file  update/report  program, 
AVS3.  They  are  written  in  FORTRAN  and  are  designed  to  run  on  Burroughs 
B3500  computers  at  NSC,  Charleston,  S.C.  and  at  the  Fleet  Material 
Support  Office,  Meohanicsburg ,  PA.  An  earlier  version  was  designed  for 
the  CDC  6600  computer  at  DTNSRDC. 

AVS  can  schedule  up  to  99  orders  totalling  about  2000  pallets 
among  as  many  as  99  warehouses.  Deliveries  and/or  pickups  are  made 
by  as  many  as  50  vehicles  of  four  general  types:  straddle  trucks, 
transporter  vehicles,  tractor  trailers,  and  industrial  tractors. 

Routes  are  built  to  "maximum"  efficiency  within  the  limitations  of 
the  algorithm  used. 

AVS2  uses  the  routes  prepared  by  AVS1  to  schedule  servicing  of 
emergency  orders  placed  during  the  regular  daily  routine.  An  emergency 
order  can  include  from  1  to  99  pallets;  it  can  preempt  regular  orders  if 
the  dispatcher  desires;  it  can  be  handled  by  a  single  vehicle  type  or  by 
a  mix  of  vehicles;  finally,  the  vehicles  selected  to  service  it  may  be 
those  used  for  regular  orders,  a  subset  of  these,  vehicles  previously 
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unused,  or  any  combination  of  these  vehicles.  As  many  as  99  emergency 
orders  may  be  considered  in  the  same  AVS2  run. 

For  AVS  to  be  successful,  the  programs  must  be  easily  usable  by 
dispatch  personnel  who  have  had  minimal  computer  training.  In  addition, 
the  scheduling  programs  must  execute  rapidly  to  assure  fast  response 
to  orders.  For  these  reasons  the  AVS  programs  are  interactive,  tutorial, 
and  corrective,  using  cathode  ray  tube  (CRT)  terminals  connected  to  the 
B3500.  Program  procedures,  execution  instructions,  and  output  file 
storage  are  simple.  Data  are  requested  from  the  user  by  the  Information 
Retrieval  System  (SINR)  and  inputs  are  checked  for  validity  by  a  COBOL 
driver  program,  AVSIN1.  Instructions  are  available  to  the  user  in  frame 
form  displayed  at  the  CRT  terminal.  Schedules  are  generated  only  after 
the  user  has  checked  the  correctness  of  the  data. 
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BACKGROUND 


Since  the  impetus  for  undertaking  the  AVS  project  came  from  NSC 
Charleston,  the  AVS  programs  described  here  address  operations  at  that 
installation.  A  brief  description  of  Charleston's  local  delivery 
procedures  is  given  in  this  section. 

NSC  Charleston  includes  78  pick-up/delivery  sites  and  eight  piers, 
plus  six  off-base  sites  (Table  1).  Twenty  or  more  of  these  are  used  in  a 
typical  half-day's  schedule.  The  dispatch  operation  is  run  from  building 
1078.  (A  map  of  the  Charleston  complex  is  given  in  Figure  1;  the  ware¬ 
houses  are  listed  in  Table  1.) 

Orders  for  palletized  cargo  movement  fall  into  three  priority 
classes.  Group  3  orders  are  telephoned  to  the  dispatcher  twice  a  day:  at 
1  .>0  and  1500  hours.  Group  2  and  Group  1  are  priority  orders  requiring 
service  within  8  hours  and  4  hours,  respectively.  They  may  be  called  in 
at  any  time,  but  in  practice  are  usually  phoned  in  at  the  same  time  as 
Group  3  orders.  Orders  are  ready  for  shipment  at  the  warehouses  when  the 
dispatcher  is  called  to  request  transportation.  At  present  the  dispatch 
supervisor  prepares  the  vehicle  schedules  from  the  order  list  using  his 
knowledge  of  the  base  layout;  chere  is  no  documented  formal  procedure. 

The  vehicles  are  radio  dispatched  to  service  these  requests. 

However,  there  is  additional  cargo  movement  which  is  not  handled  in 
this  way.  At  certain  warehouses  the  high  volume  of  cargo  that  is  routinely 
shipped/received  is  moved  by  vehicles  assigned  exclusively  to  those  loca¬ 
tions.  These  movements  will  not  be  scheduled  by  AVS  initially. 

Orders  are  serviced  by  four  types  of  vehicles:  straddle  trucks, 
transporter  vehicles,  conventional  tractor  trailers,  and  industrial 
tractors.  These  vehicles  will  be  designated  in  the  remainder  of  this 
report  by  the  abbreviations  ST,  TR,  TT,  and  IT,  respectively.  These 
vehicles  are  distinguished  by  their  operational  characteristics,  such  as 
highway  speed,  load  time,  manner  of  loading,  and  the  skills  and  ratings 
of  the  drivers  who  operate  them. 

TT's  carry  from  four  to  fourteen  pallets,  are  capable  of  highway 
speeds,  but  are  relatively  slow  at  loading  and  unloading.  They  must  be 


backed  up  to  a  loading  platform  and  loaded  by  forklifts.  TT's  are  the 
only  vehicles  which  service  the  off-base  sites. 

TR's  carry  either  ten  or  twelve  pallets,  are  somewhat  slower  than 
TT's,  and  are  more  efficient  at  loading.  They  drive  up  to  a  loading 
platform,  the  operator's  cab  swings  out  of  the  way,  the  height  of  the 
truck  bed  is  adjusted,  and  pallets  are  loaded  onto  a  gravity  conveyor 
which  delivers  them  to  a  roller  bed  in  the  truck.  When  gravity  conveyors 
are  not  available  at  a  site,  forklifts  must  be  used  instead. 

ST's  ^.arry  five  or  seven  pallets,  are  slower  than  TT's  or  TR's  on 
the  road,  but  are  the  most  efficient  at  loading.  Pallets  are  aligned  at 
the  pick-up  site;  the  ST  lowers  a  set  of  lifting  rails  which  fit  into 
channels  on  the  sides  of  the  pallets;  the  ST  then  lifts  the  pallets 
and  drives  off.  The  procedure  is  reversed  for  unloading.  ST's  can 
service  up  to  three  warehouse  origins  per  route  segment,  i.e., 
loading/unloading  cycle. 

IT's  carry  up  to  fourteen  pallets,  are  slower  than  TT's,  TR's,  or 
ST's  on  the  road.  Loading  and  unloading  are  the  same  as  for  TT's.  IT's 
are  for  use  within  the  complex  only. 

The  algorithm  places  minimum  load  requirements  on  each  vehicle  type 
for  route  assignment.  These  requirements  are:  ST,  3  pallets;  TR,  8 
pallets;  TT,  14  pallets;  and  IT,  8  pallets. 


TABLE  1  -  NSC  CHARLESTON  WAREHOUSES  SERVICED  BY  AVS 
LISTED  BY  GROUP  AND  NUMBER  WITHIN  GROUP 
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AVS1  -  REGULAR  ORDER  SCHEDULING 


Regular  order  scheduling  takes  place  In  four  phases.  The  first 
phase  Is  Interactive  data  entry  from  a  remote  CRT  terminal  (handled  by 
the  SINR  Information  Retrieval  System  available  on  the  B3500  computer) . 

In  the  second  phase  (subroutine  AVSN2)  the  program  examines  the  Input 
orders  individually  and  sorts  them  to  reduce  vehicle  order  selection  time. 
In  the  third  phase  (subroutine  ROUTE)  the  four  vehicle-type  order  lists 
are  assembled  into  vehicle  routes.  The  last  phase  converts  the  vehicle 
route  arrays  into  usable  printout  (subroutine  TCARP).  Figure  2  gives 
the  AVS  System  Flowchart.  The  combined  program,  AVS,  which  consists  of 
AVS1  and  AVS2,  uses  84  kilo  digits  (KD)  of  core  locations. 

INPUT 

When  procedures  specified  in  the  User's  Manual  (Appendix  A)  are 
followed,  the  data  input  to  AVS1  is  accomplished  interactively  from  a 
remote  CRT  terminal.  The  user  may  enter  the  following  data: 

Orders .  Orders  are  entered  by  listing  the  order  sizes  and  originating 
and  destination  warehouses.  Entries  are  made  by  "filling  in  the  blanks". 
Data  correctness  messages  are  displayed  on  the  CRT  screen. 

Vehicles .  Vehicles  are  entered  by  listing  the  vehicle  type,  capacity, 
and  maximum  route  duration.  Omission  of  either  capacity  or  maximum  route 
duration  for  any  vehicle  will  cause  the  algorithm  to  substitute 
default  (built-in)  values. 

Begin  Time.  The  beginning  time  for  the  schedules  must  be  entered.  The 
program  uses  24-hour  clock  time. 

Route  Length.  A  maximum  value  for  route  duration  in  minutes  is  entered. 
This  entry  will  replace  a  default  value  of  480  minutes.  This  route 
length  does  not  supersede  the  value  which  is  specified  in  the  vehicle 
entry . 

SINR's  COBOL  Driver  Routine,  AVSIN1,  checks  the  input  data  for 
validity.  An  order's  origin  and  destination  warehouses  must  match  a 
built-in  list  of  warehouse  names.  Input  numeric  data  (e.g.,  order  size, 
times,  vehicle  capacity,  and  route  duration)  must  be  within  specified 
ranges.  The  corrected  data  are  made  available  to  AVS  through  the  VS2IN 
file.  After  all  Input  has  been  entered  satisfactorily,  AVSINI  will 
execute  AVS. 
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REGULAR  ]  (  SCHED2 

SCHEDULES/  \ SCHEDULES 


METHOD  and  ALGORITHM 


Route  building  is  accomplished  by  subroutines  ROUTE,  BLDTR,  and 
BUILDS-  The  schedules  for  ST's  are  built  first,  then  for  TR's,  TT's, 
and  finally  for  IT's.  The  order  of  schedule  building  for  the  four 
vehicle  types  may  be  changed  to  fit  the  needs  of  the  user.  The  algorithm 
operates  on  the  sorted  lists  of  orders.  In  the  following  discussion  the 
ST  routes  are  built  first,  then  the  variations  used  in  TR ,  TT,  and  IT 
route  building. 

The  List  of  orders  is  scanned  to  determine  the  combination  of 
orders  which  will,  if  serviced  by  a  single  ST,  provide  the  greatest  time 
savings  (or  least  time  cost)  over  the  situation  in  which  each  order  is 
ser. iced  hv  a  separate  truck.  All  time  estimates  pertain  to  warehouse 
lie  is,  lather  than  to  individual  warehouses.  There  is  almost  always  a 

time  savings  involved  in  joining  two  or  more  orders  in  this  manner. 

Mow.  .cr,  to  prevent  excessive  order  joining  and  over-utilization  of 
til'  .  i dual  .chicles,  a  least  time  savings  restriction  was  added  to  the 
•  rain'i.  Sin,  e  joined  order  routes  are  assigned  to  vehicles  first,  the 
1  •  t'1  'i.ing  restriction  reduces  the  number  of  joined  orders  and 

i'-  'l  w.  :  of  issignment  if  single  ordnr  routes  to  available  vehicles.  If 

'  it-  ,’'iui  l.au  re.j  u  i  remenl  for  the  vehicle  is  not  met,  order  segments 

*•  1  I  l  ’  ]  '  I  .iru  • 

M.i  • l ng  selected  the  best  set  of  orders  to  start  an  ST's  route,  the 
i  • iir  e  s  .mi  i  ae  s  the  remaining  orders  in  the  list  for  that  single  order 

»hr  , ,  it  ;  tie.i  to  the  route,  results  in  the  least  time  cost  over 

■  .■  ’  '  ■  r  tei  separately.  As  in  the  starting  case  the  limit  on 

tpplles.  The  new  order  is  placed  at  the  end  Lite  existing  route, 
■  :  i.o  i  .\urni  n  i  ng  intermediate  positions  along  the  route  would  be  too  time 
;iii!  ig  and  r  tie  ceding  would  be  too  complex. 

i ne  algorithm  continues  in  this  manner,  adding  orders  to  the 
••i;d  .'!  the  previous  route,  untlL  the  route  time  limit  for  the  vehicle 
pie,  I udes  further  add i t Ions ,  or  until  the  pool  of  unassigned  orders  is 
exhausted.  In  the  latter  case  the  algorithm  proceeds  directly  to  consid¬ 
eration  of  tlie  TR  vehicles.  In  the  former  case  the  next  ST  route  is 


begun,  using  the  same  method.  ST  routes  are  built  using  a  "first  on, 
first  off"  strategy. 

TR,  TT,  and  IT  building  Is  exactly  like  ST  route  building  and 
requires  no  additional  elaboration.  Leftover  orders  from  TR  route  build¬ 
ing  are  passed  to  the  TT's  and  leftover  TT  orders  are  passed  to  IT's  in 
the  same  manner  that  leftover  ST  orders  are  passed  to  TR's.  Figure  3 
shows  beginning  pairs  that  may  be  serviced  by  all  vehicles.  Figures  4 
through  6  illustrate  order  assignment  for  each  vehicle  type.  Routes 
for  TR's,  TT's,  and  IT  's  are  built  using  a  "first  on,  last  off"  scheme. 

Since  TT's  are  the  only  vehicles  equipped  for  highway  travel,  they 
alone  service  the  six  off-base  activities. 

Route  building  ceases  when  all  IT  routes  have  been  built.  If  any 
orders  are  still  unserviced,  they  are  printed  out  so  that  the  the  dis¬ 
patcher  can  schedule  them  at  a  later  time.  They  may  be  scheduled  later 
as  "emergency"  orders  using  program  AVS2,  they  may  be  postponed  to  the 
next  shift,  or  they  may  require  special  scheduling  without  the  use  of 
AVS. 

PROGRAM  OUTPUT 

Schedule  output  from  AVS1  consists  of  a  summary  of  the  input  data 
and  the  schedules  for  the  individual  vehicles.  Each  schedule  gives  the 
vehicle  name,  capacity,  route  starting  time,  and  dates  in  a  header;  a 
list  of  scheduled  stops  specifying  site,  time,  pallets  picked  up  or 
delivered,  reference  order  number,  and  approximate  stay  time  at  the 
site;  and  a  trailer  of  finishing  time  and  location,  time  still  available, 
and  number  of  pallets  moved.  AVS1  also  creates  a  system  schedule  file, 
SCHED1,  to  be  used  by  AVS2. 

The  coding  for  schedule  printout  is  quite  complex  (see  Special 
Techniques  section).  Changes  to  this  coding  should  be  made  only  after  a 
thorough  study  of  the  programming  details  covered  in  Appendixes  A  and  R. 
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AVS2  -  EMERGENCY  ORDERS  SCHEDULING 


The  emergency  order  program  AVS2  comprises  three  phases;  data 
entry  (AVSINl-Appendix  C),  order  scheduling  (Subroutine  Route),  and 
schedule  printout  (Subroutine  TCARP) .  These  phases  are  described  in  the 
following  paragraphs.  Figure  2  gives  the  AVS2  system  flowchart  as  a 
subset  of  AVS. 

INPUT 

AVS2  also  uses  SINR,  and  data  items  are  entered  by  "filling  in  the 
blanks"  as  specified  by  the  selected  frames.  AVSIN1,  a  SINR  COBOL  driver 
routine,  consolidates  the  data  and  makes  the  results  available  to  AVS2. 
The  corrected  data  are  passed  to  AVS2  on  file,  VS2IN.  When  data  entry  is 
complete,  AVS IN l  executes  AVS.  Route  data  from  the  previous  set  of 
schedules,  whether  generated  by  AVS1  or  by  an  earlier  run  of  AVS2,  are 
used  by  the  program  along  with  the  current  emergency  order  data  as 
entered  at  the  terminal.  The  following  data  are  entered  interactively: 
Orders .  The  order  origin,  size,  and  destination  are  entered.  Origin 
and  destination  are  checked  against  a  list  of  warehouse  designations. 
Order  size  must  be  a  numerical  entry  in  the  range  1-99  pallets.  Up  to 
99  orders  may  be  entered  for  emergency  scheduling;  if  more  than  99  are 
input,  only  the  first  99  are  retained. 

Vehicles.  A  considerable  choice  of  vehicles  to  service  the  emergency 
order  is  given  to  the  user.  All  vehicles  made  available  when  the 
schedules  were  created  by  AVS1  (or  augmented  by  earlier  AVS2  runs) 
may  be  used;  any  subset  of  these  may  be  chosen;  or  new  vehicles  may  be 
selected.  For  new  vehicles,  capacity  and  maximum  route  dura,  ion  may 
be  specified;  otherwise,  default  (built-in)  values  for  capacity  and 
maximum  route  duration  are  used.  New  vehicles  chosen  by  the  algorithm  to 
service  the  order  are  added  to  the  available  vehicles  list  for  the  next 
use  of  AVS2,  but  if  a  vehicle  just  added  by  the  user  during  data  entry  is 
not  selected  by  the  algorithm,  it  does  not  Join  the  list. 

Time .  The  time  of  the  emergency  order  is  input.  This  time  is  the  basis 
on  which  the  existing  schedules  are  examined  to  determine  vehicle  avail¬ 
ability.  Consequently,  sufficient  lead  time  should  be  allowed  to  permit 
the  program  to  execute  and  the  dispatcher  to  notify  the  selected  driver 
of  ills  change  in  route. 
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Date .  It  Is  possible  during  AVS2  to  change  the  date  stored  In  the 
AVS1  schedules. 

Bump  Option.  A  "bump"  option  can  be  exercised  to  allow  the  servicing  of 
emergency  orders  before  regular  orders. 

METHOD  AND  ALGORITHM 

AVS2  examines  the  existing  vehicle  schedules  and  determines  which 
vehicle  or  vehicles  should  service  an  emergency  order.  There  is  a  funda¬ 
mental  assumption  that  the  vehicles  are,  in  fact,  following  the  computer 
generated  schedules  fairly  closely.  This  assumption  allows  AVS2  to  work 
with  schedule  data  rather  than  with  real  time  data. 

The  criterion  for  determining  which  vehicle(s)  service  an  emergency 
order  Is  quite  simple,  but  complexities  in  the  coding  arise  from  a  number 
of  options  designed  to  make  the  algorithm  more  flexible,  and  from  the 
rather  complicated  method  of  storing  the  schedule  data  (linked  list  tech¬ 
nique)  .  According  to  the  criterion,  the  emergency  vehicle  selected  is  the 
one  which  can  pick  up  the  emergeny  order  the  soonest,  subject  to  restric¬ 
tions  Imposed  by  the  algorithm  options. 

The  "bump"  option  affects  this  criterion.  Under  the  bump  option  the 
user  may  allow  vehicles  to  exceed  their  allotted  maximum  route  duration. 
The  default  case  for  this  option  Is  not  to  permit  this.  Therefore,  a 
vehicle  which  could  service  the  emergency  soonest  would  not  be  chosen  if 
such  an  action  meant  that  its  regular  route  would  not  be  finished  on 
time.  This  action  Is  altered  by  specifying  the  bump  option  during 
interactive  data  entry  (see  above  and  Appendix  A,  User's  Manual).  The 
terra  "bump"  signifies  that  delivery  of  regular  orders  would  be  inter- 
rumpted  to  handle  the  emergency.  When  time  Is  clearly  critical,  speci¬ 
fying  the  bump  option  will  enable  the  emergency  order  to  receive  the 
fastest  possible  service.  If  the  bump  option  is  not  specified,  and  if 
the  vehicles  under  consideration  all  have  relatively  full  schedules,  the 
program  may  inform  the  user  that  no  vehicles  are  available  to  service  the 
order . 

An  important  feature  of  AVS2  is  that  the  user  may  specify  the 
vehicles  to  be  considered,  regardless  of  which  vehicles  were  made  availa¬ 
ble  to  the  AVS1  algorithm.  That  is,  the  same  vehicles  may  be  used 


as  were  used  for  Che  previous  schedules,*  or  a  subset  of  those  vehicles 
may  be  used;  or  additional  vehicles  may  be  specified.  This  gives  the 
dispatcher  considerable  control  over  the  manner  In  which  the  program 
schedules  the  emergency  order.  As  an  extreme  example,  the  user  could 
specify  a  single  truck  which  was  already  In  use,  together  with  the  bump 
option,  to  force  the  algorithm  to  fit  the  emergency  Into  that  vehicle's 
schedule . 

Several  points  about  the  AVS2  algorithm  need  to  be  mentioned? 

First,  the  emergency  order  algorithm  may  be  used  any  number  of  times 
during  the  processing  of  the  AVS  schedules.  At  the  conclusion  of  each 
emergency  run,  the  schedules  are  updated  for  use  by  the  next  run. 

Second,  but  related  to  the  first  point,  when  the  schedules  are 
being  searched  for  the  placing  of  a  new  emergency  order,  no  vehicle  ser¬ 
vicing  a  previous  emergency  order  Is  available  for  the  new  order  until 
the  previous  order  is  delivered.  Emergency  orders  have  a  single 
priority,  and  are  filled  on  a  first  come,  first  served  basis. 

This  leads  to  a  third  point:  emergency  orders  should  be  run  in  the 
order  In  which  they  are  placed.  Failure  to  do  this  may  give  erroneous 
results.  Also  the  program  will  take  a  few  minutes  to  run  and  print  out, 
and  this  should  be  considered  in  specifying  the  start  time  for  an 
emergency  ^rder-. 

Fourth,  the  actual  updating  of  the  schedules  is  not  done  automat¬ 
ically  within  the  AVS2  program;  consequently,  if  the  schedules  printed  at 
the  remote  terminal  do  not  satisfy  the  user,  he  may  change  options, 
vehicles,  or  even  order  data  and  rerun  the  program.  Previous  schedules 
may  be  saved  or  discarded  by  simple  file  handling  commands  given  in 
Appendix  A.  The  schedule  may  be  modified  using  AVS3,  Update  Program. 
Detailed  flowcharts  and  coding  descriptions  are  found  in  the  Appendixes. 

PROGRAM  OUTPUT 

Schedule  output  for  AVS2  is  straightforward.  A  summary  of  the 
input  data  is  provided,  then  a  vehicle  availability  table.  Any  vehicles 
which  cannot  be  used  are  listed  and  the  actual  vehicle(s)  chosen  is  (are) 
given.  Finally  the  new  schedules  for  the  chosen  vehicle(s)  are  printed, 
following  the  same  format  as  in  AVS1. 
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SPECIAL  TECHNIQUES 

Several  techniques  used  In  the  AVS  programs  will  be  described 
here  to  help  in  understanding  the  program  coding.  All  the  techniques 
were  used  to  reduce  execution  time  and  core  requirements  so  that  the 
programs  could  run  on  the  rather  limited  Burroughs  B3500  computers  in  use 
by  Navy  Supply  Centers.  The  penalty  for  the  gain  in  efficiency  of  the 
programs  is  increased  program  complexity.  Three  techniques  have  to 
do  with  the  calculation  of  travel  times  between  warehouses;  two  are 
general  data  storage  techniques  used  to  reduce  sort  times  in  the  AVS 
algorithms . 

TRAVEL  TIME  TECHNIQUES 

The  AVS  programs  were  set  up  to  service  up  to  99  warehouses, 
and  the  test  facility  (NSC  Charleston)  has,  in  fact,  92  sites.  The 
algorithms  make  frequent  use  of  the  travel  times  between  sites.  The  times 
differ  for  the  four  vehicle  types,  giving  more  than  15,000  intra-activity 
time  measurements.  The  prohibitive  cost  of  storing  such  a  collection  of 
data  demands  that  this  figure  be  reduced  to  a  more  manageable  level;  it 
is  this  problem  that  the  three  techniques  mentioned  address. 

The  major  reduction  in  the  time  array  sizes  is  achieved  by  grouping 
the  warehouse  sites;  each  group  of  warehouses  in  close  proximity  is 
considered  a  single  site  (area).  Figure  1  shows  the  groupings  of  the 
Charleston  sites.  (These  groupings  reflect  some  functional  as  well 
as  geographic  differentiation).  The  travel  times  between  warehouses 
within  an  area  are  taken  to  be  constant  (two  minutes). 

A  further  reduction  in  the  time  array  sizes  is  gained  by  consider¬ 
ing  the  six  off-base  sites  separately.  These  sites  are  serviced  only  by 
TT's  and  all  movements  take  place  between  the  main  base  and  the  sites; 
i.e.,  there  are  no  movements  between  off-base  locations.  The  number  of 
measurements  necessary  to  represent  travel  to  the  off-base  sites  is  thus 
reduced  to  six. 

The  final  reduction  in  array  size  is  based  on  an  assumption  of  sym¬ 
metry  in  the  travel  time  matrices;  i.e.,  the  time  to  travel  from  site  A 
to  site  B  is  the  same  as  the  time  to  travel  from  site  B  to  site  A.  This 
assumption  is  justified  by  actual  travel  time  data  collected  at  Charleston. 
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Applying  these  three  techniques  reduced  the  arrays  from  more  than 
15,000  to  150  storage  locations,  with  only  a  slight  increase  in  the 
procedural  code  generated  and  with  little  or  no  decrease  in  the  accuracy 
of  the  schedules. 

LINKED  LIST  TECHNIQUES 

The  linked  list  method  of  data  storage  is  one  of  several  which 
were  tried  in  various  versions  of  the  AVS  programs;  it  is  demonstrably 
faster  than  the  sorting  method  and  uses  considerably  less  core  than  the 
duplicate  arrays  method,  both  of  which  are  discussed  here. 

Two  sets  of  data  arrays  are  used  in  the  programs:  one  set  contains 
information  about  the  orders  and  the  routes  to  which  they  belong;  the 
other  set  contains  information  about  the  vehicles  used.  In  both  cases 
the  information  contained  in  the  arrays  is  initially  stored  in  a  particu¬ 
lar  sequence.  Later  the  same  information  is  used  in  a  different  sequence. 
For  example,  the  orders  generated  by  AVS1  are  stored  in  the  sequence  in 
which  they  are  input  at  the  remote  terminal.  They  are  then  scanned 
repeatedly  and  assembled  into  the  final  vehicle  schedules. 

The  problem  is  how  to  re-organize  the  data  in  these  arrays  from 
their  initial  sequence  to  their  final  sequence.  The  first  and  most 
natural  method  is  actual  physical  re-organization  of  the  data.  The 
advantage  of  this  method  is  that  the  final  arrays  are  easy  to  process, 
either  by  computer  or  the  human  mind.  For  example,  the  orders  processed 
by  vehicle  #1  would  appear  first  in  the  final  arrays,  and  would  appear  in 
the  order  in  which  the  vehicle  would  service  them.  There  are  two  ways  in 
which  this  physical  re-organization  can  take  place:  through  the  use  of 
duplicate  arrays  or  by  sorting  the  original  arrays. 

In  using  duplicate  arrays  the  first  set  of  arrays  is  examined  and 
the  appropriate  element  is  selected,  stored  in  the  second  set  of  arrays, 
and  deleted  from  (or  marked  as  processed  in)  the  original  arrays.  The 
obvious  disadvantage  to  this  method,  particularly  when  large  amounts  of 
data  are  being  processed,  is  that  the  memory  requirements  of  the  program 
are  doubled. 
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The  second  method  of  physically  re-organizing  data  Is  by  sorting. 
The  Initial  arrays  are  examined;  the  chosen  element  is  selected  and 
physically  moved  to  the  first  position  in  the  arrays;  the  remaining 
items  in  the  arrays  are  shifted  to  make  room  for  it.  This  process 
eliminates  the  need  for  duplicate  arrays  and  their  large  memory  require¬ 
ments;  however,  sorting  is  a  time  consuming  process  when  the  arrays 
involved  are  large. 

Both  these  methods  for  physical  re-organization  of  data  were  used 
in  early  versions  of  AVS  software,  but  the  constraints  of  time  and  space 
made  them  unacceptable. 

A  common  method  of  processing  large  amounts  of  data  is  that  of 

embedded  links;  this  technique  is  used  in  several  of  the  large  data  base 

management  systems  now  commercially  available.  In  this  technique  a 

sequence  of  data  items  in  a  large  set  of  data  arrays  is  linked  together 

by  providing  an  array  of  pointers  or  links.  The  pointer  associated  with 

a  data  element  gives  the  address  of  the  next  datum  in  the  sequence.  A 

pointer  external  to  the  arrays  gives  the  address  of  the  first  element  in 

the  sequence,  the  link  variable  associated  with  that  element  gives  the 

address  of  the  second  element  in  the  sequence,  etc.  The  time  constraints 

2 

of  sorting,  where  n  movements  are  required  to  sort  n  elements,  are  not 
encountered.  The  introduction  of  an  additional  array  of  pointers  does 
not  usually  involve  a  significant  increase  in  storage,  since  the  data 
elements  being  sorted  are  usually  made  up  of  corresponding  components  of 
many  parallel  arrays  (or  the  addresses  of  Indices  in  the  pointer  array 
are  much  smaller  than  the  items  which  they  label). 

When  the  initial  duplicate  array  versions  of  AVS  were  reprogrammed 
using  sorting  techniques,  the  size  of  the  program  decreased  by  50  percent 
and  when  further  reprogramming  introduced  the  linked  list  techniques,  the 
time  of  execution  for  a  relatively  large  test  case  (99  orders)  was 
decreased  to  about  25  per  cent  of  its  previous  value. 

The  three  methods  of  data  rest ructurlng . are  illustrated  in  Figures 
7,  8,  and  9. 
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A  major  advantage  to  the  linked  list  method  of  data  organization  is 
that  it  speeds  access  to  the  data.  For  example,  rather  than  searching  an 
entire  array  for  an  item  which  is  in  a  specific  vehicle  route,  only  the 
items  in  the  route  need  be  examined.  The  data  examination  process  is 
made  more  efficient  in  the  AVS  case  because  there  is  a  separate  linked 
list  for  unprocessed  orders,  i.e.,  those  orders  not  yet  assigned  to  a 
vehicle  route.  As  routes  are  built,  orders  pass  from  the  unprocessed 
linked  list  to  a  specific  vehicle's  linked  list.  Thus  each  successive 
search  of  the  unprocessed  orders  takes  less  time. 

The  savings  in  space  and  time  of  the  linked  list  system  must  be 
paid  for  by  increased  complexity  of  the  program  code. 

A  separate  linked  list  must  be  maintained  if  the  arrays  are  to 
be  searched  in  reverse  order,  or  if  items  are  to  be  inserted  in  a  list. 
Thus  two  link  arrays  must  usually  be  specified  to  determine  a  linear 
chain  of  items.  Examination  of  the  coding  for  AVS,  particularly  subrou¬ 
tine  TCARP,  shows  how  complicated  the  coding  can  become  using  the  linked 
list  technique. 

DATA  PACKING 

Because  of  the  limited  magnitude  of  order  size  and  the  number  of 
warehouses  considered,  it  was  felt  that  all  order  information  could  be 
placed,  "packed",  in  one  data  location  rather  than  in  three.  The  array 
INFO  represents  all  order  information,  and  each  entry  has  the  following 
format : 

INFO  Word  Configuration 

|  Order  allocation  I 

|  indicator  I 

i  +,  unassigned  I 

| _ assigned _ [ 

1  digit  2  digits  2  digits  2  digits 

Data  packing  also  reduces  the  number  of  internal  sorts  by  listing  one 
data  element  rather  than  three. 


Origin  |  Destination  |  Order  | 
warehouse  |  warehouse  I  size  I 
number  I  number  i  I 
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AVS3  -  H I STORy /UPDATE  PROGRAM 


The  AVS  history  file  is  created  from  the  schedules  produced  by 
AVS1  and  AVS2.  The  quantities  of  orders  scheduled  for  delivery  are 
accumulated  by  originating  warehouse,  destination  warehouse,  and  truck 
name.  This  file  is  maintained  by  AVS3. 

AVS3  is  the  set  of  subroutines  used  for  creating,  maintaining,  and 
reporting  records  in  the  AVS  history  file. 

File  Description 

The  history  file  is  sequentially  organized,  with  records  sorted  by 
START  DATE  with  the  earliest  date  first. 

Record  Structure 

The  record  for  the  history  file  is  1424  bytes  long.  Each  record  is 
uniquely  identified  by  two  of  the  following  three  fields: 

START  DATE 
END  DATE 
SHIFT 

The  Start  Date  is  the  earliest  date  covered  by  the  data  in  the  record. 
Similarly,  the  End  Date  indicates  the  end  of  the  period  of  time  covered 
by  the  dates.  When  the  two  dates  are  unequal,  the  shift  is  set  to  zero 
and  not  used.  For  equal  dates,  the  shift  may  or  may  not  be  zero.  A 
non-zero  shift  indicates  that  the  data  in  the  record  are  for  a  single 
shift;  a  zero  shift  indicates  a  record  with  data  accumulated  over  many 
shifts.  Records  for  a  single  shift  are  created  from  the  SCHEDl  file 
produced  by  AVS1  or  AVS2.  Before  the  new  record  is  inserted  in  the  file, 
a  copy  of  the  mark  in  the  SCHEDl  file  is  made  for  the  record,  since  AVS2 
increments  the  mark  by  one  when  it  updates  the  schedule  with  an  emergency 
order.  This  enables  AVS3  to  determine  whether  the  SCHEDl  file  used  is  a 
newer  generation  than  the  file  which  originally  created  the  record. 

Record  Creation 

AVS 3  creates  new  records  in  the  history  file  using  the  schedules 
generated  by  either  AVSL  or  AVS2.  These  schedules  are  contained  in  the 
SCHEDl  file.  AVS3  first  reads  the  SCHEDl  file.  It  then  reads  the 
history  file  for  the  same  date  and  shift  as  the  SCHEDl  file.  If  a  record 
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is  found  with  the  specified  date  and  shift,  the  trailer  mark  on  the 
history  file  record  is  compared  with  the  mark  in  the  SCHED1  file.  If  the 
mark  on  the  history  file  record  is  the  same  as  the  mark  on  the  SCHED1 
file,  the  SCHED1  file  created  the  history  file  schedule  record.  If  the 
history  file  trailer  mark  is  less  than  that  in  the  SCHED1  file,  the 
incoming  SCHED1  file  is  of  a  more  recent  generation  than  the  one  that 
created  the  record.  In  this  case,  as  well  as  when  a  record  is  found  with 
the  specified  date  and  shift,  a  new  record  with  the  date,  shift,  and 
trailer  mark  of  the  SCHED1  file  is  created;  otherwise,  processing  is 
terminated . 

Assuming  the  record  can  be  added  to,  or  replaced  by  an  existing 
record  on  the  history  file,  AVS3  then  reads  through  the  SCHED1  schedule, 
accumulating  the  number  of  pallets  in  each  scheduled  order  by  originating 
warehouse,  destination  warehouse,  truck  name,  and  type  of  order  (regular 
or  special,  i.e.,  emergency).  When  all  scheduled  orders  are  exhausted, 
AVS3  accumulates  the  number  of  pallets  of  each  unscheduled  order  by 
originating  and  destination  warehouse.  The  sum  of  unscheduled  pallets  is 
designated  as  backlog.  The  record  is  placed  in  its  proper  position  in 
the  history  file,  and  a  report  of  the  new  record  is  generated. 

Update 

When  an  update  is  made  with  input  from  the  terminal,  AVS3  searches 
the  history  file  for  the  record  with  the  specified  date  and  shift.  If  a 
record  is  found  which  either  has  the  specified  date  and  shift,  or  spans  a 
period  of  time  which  includes  the  specified  date,  the  record  is  updated. 
If  the  specified  record  is  not  in  the  file,  a  message  is  printed  and  the 
next  update  record  is  read.  If  several  update  records  are  read  which 
update  the  same  record,  the  record  is  left  in  memory.  The  file  is 
then  searched  for  the  new  record.  When  the  program  is  terminated,  the 
file  is  updated  and  the  last  record  updated  is  printed. 

Record  Merge 

The  merge  function  of  AVS3  is  used  to  reduce  the  number  of  records 
in  the  file  by  consolidating  a  number  of  records  into  one.  Merges  are 
performed  on  the  file  by  defining  the  period  of  time  from  which  the  indi¬ 
vidual  records  are  to  be  taken.  AVS3  reads  through  the  date  span.  It 
then  continues  to  read  the  file,  accumulating  entries  from  the  subsequent 
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records  In  the  first  record  read.  When  the  end  of  the  specified 
date  span  Is  reached,  AVS3  updates  the  Date  fields  In  the  original  record 
to  Indicate  the  period  of  time  to  which  the  data  apply.  The  file  is 
then  copied,  with  the  new  record  Inserted  In  Its  proper  place.  At  the 
conclusion  of  the  run,  a  report  of  the  new  records  Is  generated.  Figures 
10,  11,  and  12  show  record  entry,  consolidation,  and  update. 
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Figure  12  -  Update  From  AVS  Schedule 


INPUT 


AVS3  uses  SINR,  and  data  entry  Is  accomplished  by  "filling  in 
the  blanks"  as  specified  by  the  selected  frame.  AVSIN1,  a  SINR  COBOL 
driver  routine,  consolidates  the  data  and  makes  the  resulting  file, 

VS3IN,  available  to  AVS3.  When  data  entry  Is  complete,  AVSIN1  executes 
AVS3. 

Route  data  from  the  previous  set  of  schedules  may  be  modified  or 
updated  and  placed  on  a  master  file.  "rhe  function  number  Is  specified  as 
data  and  entered  interactively:  Figure  13  shows  one  AVS3  frame. 


FUNCTION 

1 

2 

3 


4 


ACTION 

Update  the  history  file  using  the 
schedule  produced  by  AVS1  or  AVS2 

Update  or  add  specific  entries  to 
the  history  f 1  le 

Merge  two  or  more  records  to  create 
an  aggregate  of  the  records  In  the 
history  file,  replacing  the  old 
records  with  the  new  one 

Produce  a  report  of  either  an  indi¬ 
vidual  record  or  an  aggregate  of 
several  records 


PROGRAM  OUTPUT 

AVS2  produces  a  Summary  Report  of  the  history  file  for  the  date 
and  shift  specified.  This  report  gives  cargo  transfer  statistics  by 
warehouse,  indicating  the  number  of  pallets  delivered,  shipped,  and  back- 
logged. 

For  most  functions  of  AVS3,  the  program  wll 1  produce  two  outputs. 

One  will  be  the  history  file  with  the  new  or  updated  record.  The  other 
output  is  a  report  of  the  record  as  created  or  updated.  The  report 
includes : 

-  the  date  of  the  updated  or  created  record 

-  the  shift,  if  applicable 

-  the  warehouse  from  which  the  pallets  were  sent 

-  the  receiving  warehouse 


FRAME  A07 


-  the  name  of  the  truck  which  delivered  the  pallets 

-  the  number  of  pallets  delivered  as  regular  orders 

-  the  number  of  pallets  delivered  as  emergency  orders 
Report  of  records  that  have  data  from  only  one  shift  will  also  include 
the  number  of  pallets  that  were  not  scheduled  as  deliveries  by  AVSL  or 
AVS2.  These  statistics  are  arranged  in  the  same  way  as  the  others  and 
are  organized  by  sending  and  receiving  warehouses. 

Appendix  D  gives  the  AVS3  program  listing  and  flowcharts. 

Appendix  E  provides  illustrative  examples  of  AVS1,  AVS2,  and  history 
file  entries  and  output.  The  printouts  are  designed  t  be  used  directly 
as  dispatch  schedules. 

ACKNOWLEDGMENT 

The  authors  wish  to  acknowledge  the  cooperation  and  B3500  System 
expertise  of  Robert  E.  Lee  and  Robert  Owens,  Code  61  -  NSC,  Charleston, 
S.C.  Without  their  assistance  AVS  could  not  have  been  modified  for  the 


B3500  computer  system. 


APPENDIX  A  -  USER'S  MANUAL 


13 


INFORMATION  RETRIEVAL  SYSTEM  (SINR) 


For  ease  of  user  data  entry,  AVS  employs  the  SINR  Routines 
by  the  Fleet  Material  Support  Office  as  a  uniform  automatic  data 
ing  system  for  Naval  Supply  Centers.  User  instructions  and  data 
ting  are  displayed  on  a  CRT  screen.  This  display  is  referred  to 
as  a  "frame".  AVS  frames  are  given  as  follows: 


provided 
process- 
format- 
by  SINR 


FRAME  it 
AOO 

A01 
AO  2 
AO  3 

AO  4 
AO  5 
AO  6 

AO  7 


DESCRIPTION 

General  description  of  all  frames 
available  to  AVS 

Order  description  input 

Vehicle  description  input 

Input  options  for  regular  and 
emergency  orders 

Run  execution 

Input  options  for  emergency  orders 

Clear  and  restart,  given  as  an 
option  of  A04 

History  file  update  options 


Enter  o  digit  password  and  transmit  by  pressing  XMIT  key.  When  "PASS¬ 
WORD"  has  been  cleared  from  the  screen,  enter  the  following  commands: 


ENTER 

*DCH  MODE  FRAME  (transmit) 


System  Reply 
FRAME  MODE  ENABLED 


ENTER 

FRM  It Name,  #A01,  (/AO 2,  //AO 3,  //A04,  //A05,  or  it A07,  of  frame  desired 
( transmit) 


*  System  commands  are  specified  by  upper  case  letters 


34 


SYSTEM  REPLY 


The  frame  specified  will  appear  on  the  screen 

ENTER 

Key  in  data  between  displayed  [  1 .  The  skip  tab  key  may  be  used  to 

position  data.  When  the  frame  is  complete,  (transmit). 

SYSTEM  REPLY 

The  system  will  check  the  correctness  of  the  data  entered  and  will  dis¬ 
play  error  or  acceptance  messages.  If  errors  appear  in  the  data,  posi¬ 
tion  the  cursor  at  the  beginning  of  the  frame  and  re-enter  the  frame.  To 
clear  the  screen  before  the  next  frame  request,  key  "HON  and  "SHIFT"  at 
the  same  time.  When  the  screen  is  clear,  the  user  may  request  the  next 
frame.  When  all  necessary  frames  have  been  completed  and  AVS  has  been 
executed,  the  user  may  exit  the  system  by: 

ENTER 

DCH  BYE  (transmit) 

SYSTEM  REPLY 
PASSWORD 

REGULAR  ORDER  SCHEDULING  INSTRUCTIONS 

To  perform  a  regular  order  scheduling  run,  complete  frames  A01, 

AQ2,  A03,  and  A04. 

FRAME  API 

Figure  14  shows  a  typical  Frame  AOl  as  it  appears  on  the  CRT  screen. 

Enter  the  following  data  on  AOl: 

FIELD  DESCRIPTION 

"AVS"  System  Doc  ID 
"1"  for  this  data  frame 


1 

2 


FIELD 


DESCRIPTION 


3  Order  size  or  number  of  pallets  to  be 

moved  from  the  origin  9ite  to  the 
destination  site.  If  the  number  of 
pallets  is  less  than  10,  enter  leading 
zero 

4  Origin  site  name,  up  to  6  characters, 

for  a  site  as  given  in  Table  1 

5  Destination  site,  up  to  6  characters, 

for  a  site  as  given  in  Table  1 

Twenty  orders  may  be  entered  on  each  A01  frame.  If  more  than  20  orders 
are  needed,  fill  and  transmit  A01  as  many  times  as  required.  The  maxi¬ 
mum  number  of  orders  per  run  is  99.  If  the  number  of  orders  needed  is 
less  than  20,  skip  forward  and  position  cursor  at  "LAST  ORDER  PROCESSED" 
space  and  transmit.  Wait  for  the  system's  reply.  If  errors  appear, 
re-enter  frame  and  transmit. 


FRAME  AO 2 

Figure  15  shows  Frame  A02  as  it  appears  on  the  CRT  screen.  Enter 
the  following  data  on  A02: 


FIELD  DESCRIPTION 

1  "AVS"  System  Doc  ID 

2  "2"  for  this  frame 

3  "X"  if  this  vehicLe  is  to  be  used 

in  AVS 

if  specified  industrial  tractor 
is  to  be  an  IT.  Otherwise,  the  vehicle 
will  be  considered  a  tractor  trailer,  TT . 

4  Capacity,  maximum  number  of  pallets 

vehicle  can  carry.  Skip  field  if  default 

value  is  desired. 

Defaults: 

ST  =  7,  TR  =  12,  TT  *  14,  IT  =  10 

Maximum  route  time  in  minutes  for  this 
vehicle.  Skip  if  default  is  desired 
Default  =  480  min 
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Follow  Instruction  given  on  frame  to  transmit  data. 


FRAME  AO 3 

Figure  16  shows  Frame  A03  as  It  appears  on  the  CRT  screen.  Enter 
the  following  data  on  A03: 

DESCRIPTION 
"AVS"  System  Doc  ID 
"3"  for  the  frame 
Date  of  schedule 

Start  time  of  shift  using  24  hr  clock 

Maximum  length  of  shift 
Default  *  480  min 

Position  cursor  at  "CURSOR"  and  transmit.  Wait  until  system  replies  be¬ 
fore  proceeding. 

FRAME  AO 4 

Figure  17  shows  Frame  A04  as  it  appears  on  the  CRT  screen.  Enter  the 
following  data  on  A04: 

1  "AVS"  for  system  Doc  ID 

2  "4"  to  produce  schedules  for  data 

"6"  to  clear  registers  and  re-enter 
data  for  frames  A01,  A02,  A03,  A05 

Move  cursor  to  "CURSOR"  and  transmit.  No  reply  will  be  made  by  system. 

EMERGENCY  ORDERS  SCHEDULING  INSTRUCTIONS 

To  perform  an  emergency  order  scheduling  run,  complete  frames  A01, 
A02,  A03,  A04,  and  A05.  The  emergency  order  program  (AVS2)  uses  the  same 
information  as  the  regular  orders.  Delivery  preference  options  are  given 
in  Frame  A05,  Figure  18.  The  items  for  frames  A01,  A02,  and  A03  which 
apply  only  to  the  emergency  orders  are  described  as  follows: 


FIELD 

1 

2 

3 

4 

5 


!7 


FRAME  A01 


Figure  15  -  Frame  A02 
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FRAME  A 04 


(FRM  »A04 
DOCID  [  1 

(CURSOR] ( 


] 


AUTOMATED  VEHICLE  SCHEDULING  -AVS- 
(START  /  CLEAR  AND  RESTART] 


(TO  GENERATE  SCHEDULES  ENTER  4] 

(TO  CLEAR  ALL  DATA  AND  RESTART  ENTER  6]) 


Figure  17  -  Frame  A04 


FRAME  A01 


FIELD 


DESCRIPTION 


1  "AVS"  System  Doc  ID 

2  "1"  for  this  frame 

3  Order  size,  number  of  pallets 

4  Origin  site  name 

5  Destination  site  name 

A  maximum  of  99  emergency  orders  may  be  entered  per  emergency 
order  run. 


FRAME  AO 2 

FIELD  DESCRIPTION 

1  "AVS"  System  Doc  ID 

2  "2"  for  this  frame 

3  "S"  to  use  the  same  vehicles  as  the 

previous  regular  order  run.  Otherwise, 
enter  "X"  or  for  each  vehicle  to  be 
used  and  complete  Field  5  for  each  vehicle 
to  be  modified. 

5  Time  in  minutes  of  maximum  route 

Default  =  480  min 


FRAME  AO 3 


FIELD 

1 

2 

3 

4 

3 


DESCRIPTION 
"AVS"  System  Doc  ID 
"3"  for  this  frame 
Date 

Time  of  emergency  orders  using 
24-hr  clock 

Maximum  length  of  shift  (same  as 
regular  orders) 

Default  =  480  min 
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FRAME  AO 4 


Frame  A04  is  used  as  before  to  execute  the  emergency  orders  program. 

FRAME  AOS 

Figure  18  shows  Frame  A05  as  it  appears  on  CRT  screen.  Data  to  be 
entered  on  A05  are  as  follows: 

FIELD  DESCRIPTION 

1  "AVS"  System  Doc  ID 

2  "5"  for  this  frame 

3/4  Answer  questions  on  frame 

Position  cursor  at  "CURSOR"  and  transmit.  Do  not  clear  screen  until  MIX 
and  PROPT  values  are  returned. 
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FRAME  A05 

EMERGENCY  VEHICLE  SCHEDULING  -EVS-  OPTION  INPUT 

DOCID (  !  1  )  I  ENTER  AVS 

FRAME  [2  1  ENTER  5  FOR  THIS  FRAME 

MAY  THE  USE  OF  MORE  THAN  ONE  VEHICLE  TYPE 

BE  ALLOWED  TO  FILL  THIS  ORDER  I  3  ]  ENTER  Y  FOR  YES  N  FOR  NO 

MAY  NON  EMERGENCY  ORDERS  BE  BUMPED  TO  FILL 
THIS  ORDER  [  4  1  ENTER  Y  FOR  YES  -  N  FOR  NO 
CURSOR  (  1 

RESULTS 

MIX  [  ] 

PROPT  [  ) 


Figure  18  -  Frame  A05 


4  A 


To  perform  updates  and  report  generation  of  the  AVS  history  file, 
frame  A07  must  be  completed  (See  Figure  19).  The  following  four  func¬ 
tions  may  be  performed  using  this  frame: 


FUNCTION 

1 

2 

3 

4 


Frame  A07  as  it  is  filled  out 
as  follows: 

FIELD 

1 

2 

3 


ACTION 

Update  the  history  file  using  the 
schedule  produced  by  AVS1  or  AVS2 

Update  or  add  specific  entries  to 
the  history  file 

Merge  two  or  more  records  to  create 
an  aggregate  of  the  records  in  the 
history  file,  replacing  the  old 
records  with  the  new  one. 

Produce  a  report  of  either  an  indi¬ 
vidual  record  or  an  aggregate  of 
several  records 

for  each  of  the  functions  is  described 


DESCRIPTION 

"AVS"  System  Doc  ID 

"7"  for  this  frame 

Desired  function  "1",  "2",  "3", 
or  "4" 


Function  1  Instructions 

FIELD  DESCRIPTION 

4  "Y"  or  "N".  If  "Y" ,  a  file 

containing  any  orders  that  were  not 
scheduled  by  AVS1  or  AVS2  will  be 
included  in  the  next  AVS  run 
(UN IMPLEMENT ED) 


r 


Function  2  Instructions 


FIELD 

5 

6 

7 

8 
9 

10 

11 

12 


DESCRIPTION 

Date  (MMDDYY)  of  the  AVS  His¬ 
tory  File  record  to  be  updated 

Time  (24-hour  clock)  of  AVS 
history  file  record  to  be  updated 

Warehouse  from  which  shipment 
was  sent 

Warehouse  which  received  shipment 

Number  of  pallets 

Name  of  vehicle  on  which  the 
shipment  was  made 

"Y"  emergency  order, 

"N"  otherwise 

"Y"  replace  any  data  in  the  History 
File,  "N"  corresponding  entry  in 
the  history  file  is  to  be  incre¬ 
mented  by  the  number  in  Field  9 


Function  3  and  4  Instructions 
FIELD 
13 


14 


15 


DESCRIPTION 

Start  Date  (MMDDYY)  for  the 
range  of  history  file  records  to  be 
included  in  the  repor''  or  in  the 
merge  record 

End  Date  (MMDDYY)  to  indicate 
the  date  of  the  last  record  to  be 
included  in  the  report  or  in  the 
merge  record.  A  value  equal  to  the 
start  date  (Field  13)  indicates  all 
records  for  that  date  are  to  be  in- 
c 1 uded . 

Shift  of  record  to  be  in  the 
report.  This  field  is  used  only  for 
function  4  (report  generator)  and 
only  when  fields  13  and  14  are  the 
same.  It  is  ignored  in  all  other 
instances . 


4  b 
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APPENDIX  B  -  PROGRAMMER'S  GUIDE  -  SUBROUTINE  FLOWCHARTS/LISTINGS 

t 


ROUTINE:  AVS2 


r 


Tim: 


n 


Description: 

AVS2  is  an  executive  routine  which  executes  each  segment  of  the 
scheduling  algorithm. 


1 

IOEM 

A  VS2 

AVS2 

? 

SI  ll 

I N  T  EGER  =  X 

A  VS  2 

3 

i : 

L  GHENT  A  VS  IN.  A  VSN2  .  A  V  SOU  T.  ROU  TE,  RL  0  TR  ,  9UlL  OS.S*  TOST  ,TCAR>  , TCONV.VOW 

AVS2 

4 

FILE 

t  =  S  CMLO  1  «UN  IT  =0  IS<  .etOCK  IN 6=1 ,  RE  CO'* 0=8  0  .LOCK 

AVS  2 

5 

5 

FILE 

?  =  SCHf  0  2.  UNIT  =01 SK  .BLOCKING  *1,  RE  CO  80=80  .  L  OC  K 

AVS2 

6 

FILE 

5=  VS2  IN. UNIT  =  OISK,  BLOCKING:  1,1  EC  0*0  =  80  .LOCK 

AVS  2 

7 

C 

»#** 

>»AVS2 

* 

c 

AVS? 

9 

c 

(XFORTN  COMP  ILER  1 

AVS? 

10 

1  0 

c 

A  VS2 

11 

c 

AVS? 

1? 

c 

AVS? 

13 

c 

AVC  2 

1* 

c 

A  VS  2 

15 

15 

c 

A V 52  IS  A  PROGRAM  FOR  ROUTING  UP  TO  50  VEHICLES  OF 

AVS? 

16 

c 

THREE  DIFFERENT  CLASSES  TO  AS  MANT  AS  100  WAREHOUSES 

AVS? 

17 

c 

IN  A  NAVY  WAREHOUSE  COMPLEX.  THIS  PARTICULAR  DECK  IS 

AVS? 

18 

c 

FOR  ThE  NAVAL  SUPPLY  CENTER  IN  CHARLESTON,  S .C . 

AVS? 

19 

c 

EXECUTIVE  ROUTINE  CALLS  EACH  MODULE  INTO  CORE 

AVS? 

20 

20 

c 

AVSIN  -  READS  ALL  INPLT  AND  CREATES  INITIAL  OROEft  LISTS 

AVS? 

21 

c 

ROUTE  -  CREATcS  SCHEDULE  FROM  ORDERS  ANO  AVAILABLE  VEHICLFS 

AVS? 

?  2 

c 

T  CARP  -  PRINTS  SCHEDULES 

AVS? 

23 

c 

A  V  SOU  T  -  CREATES  UPDATE  TAPE  2 

AVS? 

2  4 

c 

1  •  A  VS  2 

25 

25 

c 

AVS? 

26 

INTEGER  PTSOR,  CAPAC,  TRUCK. DATE,  PTTRK.0NUM8 

AVS? 

27 

*  .trksav 

AVS? 

28 

alpha  WHNAM 

AVS  2 

29 

R  eAL  LTIME 

AVS? 

3  0 

JO 

COMMON 

AVS? 

31 

• / GeN/  RTTIH.MINLOlAt 

A  Vc  2 

32 

•/WHINTG/  NWARE  .NAREA  ( 1  El 

AVS? 

33 

•VSPQROV  ICNTRL.SAVTIM, ISORO 

AVS? 

34 

•/aAVr.P/  NSAV  <4  1  .TRKSAV  <  <*  1 

AVS? 

35 

35 

*/SCHR  OL/  ONUME  12001  .INFO  (200  1  ,1 OE  S TP  C  2  CO  1 .  IARE  A  (  2001  .  LFRwn  (2001  . 

AVS? 

36 

•LdKHO  (2001  ,LCF  HO  (  20  0  1  ,  LCM  WO  (200  1,  A  TIME  (200  1,  STOPT  (2C31 

AVS  2 

37 

•/TRUCKS/  PTSOR  (  50  1  .  T  RUCK  <501  ,  C  APA  C<  50  1  ,S  T  I  ME  (5  0 1  ,  LTI  ME  (51  1  . 

AVS? 

38 

•  RTLIM»SQ1,TlE  FM50I.NT 

AVS  ? 

39 

•/WHOUSE/  WHNAM  <521 

AVS? 

4Q 

*•  it 

•/TIMTAb/  TTIMS  <3.451.  TTIM2(bt 

AVS? 

41 

•/MSCLNS/  NORUh,NTRKS(A1,®TT*< (41 

AVS? 

-2 

•/INOFT/  SHIFT. CATE 

AVS? 

43 

•/3L0S/  L  AST  W.L  AST  A,  NEXT  A,  I  TRUCK,  I  TYPE  .IPASS.NPALTS.TIh,' 

/>  y/c:> 

4  4 

•/wOAtiSV/  LOAD 

AVS? 

45 

4  5 

ISCPO=-100 

AVS  ? 

4  0 

no  ico  i  1=1.4 

AVS? 

4? 

T-^KSi  V  (I  »:-l 

A  V^  2 

48 

1  000 

NS  AV  <  I )  =  0 

AVS  * 

49 

ioNri'L  =  t 

AVS  ? 

50 

50 

REAn(5,500l  I  A  V  S 

AVS? 

51 

i  E  <  IA  V  j.  EQ.  1 1  CALL  A  VS  12 

AVS  ? 

5? 

IF  (IAVS.F0.2I  CALL  AVSIN 

AVS? 

5  J 

IF (ICNTRL.EJ. Cl  CALL  TCARP 

AVS? 

54 

call  rcute ( IA VS1 

AVS? 

5  5 

55 

IC  MR  L=  l 

AVS? 

56 

CALL  TCARP 

AVS? 

57 

CALL  A  V  SCU  T  (  I  A  VSI 

AVS? 

5  8 

500  r  J»1JT  <hX  ,  11 1 

AVS  ? 

59 

STOP 

AVS? 

60 

t  u 

t  NO 

AVS? 

61 

52 


ROUTINE:  AVSIN 


Description: 

AVSIN  inputs  the  special  orders  to  be  considered,  the  vehicles  to 
handle  them,  and  the  schedule  run  options. 


SUBROUTINE  *  VSIN 


74/74  OPT*0  ROUND**/  TRACE 


FTN  4.  6*460 


10/17/SO  10.04.12 


1 


5 


10 


1  5 


20 


25 


30 


35 


NO 


50 


SUBROUTINE  AOS  IN 

C*  ...................................... 

c 

C  AVSIN  INPUTS  ALL  PARAMETERS  NECESSARY  FOR  THE  SCHEDULE 

C  COMPUTATIONS.  IT  ALSO  SORTS  ORCERS  ANO  VEHICLES  TO 

C  TO  REDUCE  EXECUTION  TINE. 

C 

. . .................MM.................... . "•••*•<• 

c 

1NTECER  OSTART  (16)  ,OENO(  161 
INTEGER  PTSOR.CAPAC,  TRUCK, ONUMB 
INTEGER  PTTRK.CATE 

ALPHA  8UNP(2)  ,  6HNAN.TYP£(4)  .AST  ,I0RIG,  IT  ERR.  1 1  PH  A 
INTEGER  PR OPT .SORCfl.TRESAY 
REAL  LTIME 
COMMON 

•/GEN/  RT TIM.M INLQ ( A) 

•/SAVEP/  NSAV  (4  )  .  IRKSAV  (V) 

•/RHINTG/  NR ARE .NAREA (16) 

•/SCHEOL/  ONUN6(2CO)  .INF  0(200)  .  IDE  STP  (  2  00  ) .  IARE  A  ( 2  00)  ,  LF  RRD  (?)  0) 
•L8KM0 (200) .LCf RD(  200  ) .LC PmD (  2 0 0  ) . ATI  ME (2 00  ) . STOPT ( 200  I 
•/SPORO/  ICNTRL,  SAVTIM.  SOROR 

•/TRUCKS/  PTSOR(SO)  .  TRUCK  (53).  CAPA  CI5B).  STIPE  (5  0).  LTIME  (50). 

•  RTLIH(SO)  .TLEFM  50)  .NT 
•/WHOUSc/  MMNAM  (  92  ) 

•/TIMTAB/  TTIMt  (J.n5).TTIM2  (6) 

•/MSCLNS/  NOR  OR  ,NTRKS(4),PTTRK(4) 

•/INOPT/  SHIFT, CATE 

DATA  TYPE/2HST . 2HT R .2 HIT . ? HIT / 

DATA  BUHP/2HN0.3HYeS/ 

RcWlNO  1 
MSTART  =  0 

Rc  AD  (1,(02)  NRARc,  (RARE  A(  II  ,1  =  1  ,161  ,  (WHNAMU),  1*1  .NR  ARE) 

REAO  (1,1001  (CNUME(I)  ,£NFO(I  )  ,  ID  ESTP  ( I)  ,  I  AREA  I II  , 

•  LFRWO(I).LBKnO(I> ,LCFW0(  I)  ,LCBRD(  I)  .A  TIME  (I  )  .STOPT  (I  )  , 

•  1*1.  2001 

RF  AO  (1,101)  (FTSOR(I).TRUC«(II,CAPAC(  I).STIME(I)  .  LT  I  ME  ( 1 1  . 

•  RTLIMdl.TLEFTdl  .1*1.50) 

READ  (1,1061  ((TTIM£(I.JI,I*1.3),J=1,N5).TTIM2 
REAO  (  1,  1051  PTTRK,  NTRKS,  NORDR  ,  SOROD 
READ  (1.1061  SHIFT,  OATE 
Rt  AO  (1,1071  PARK 
RERINO  1 

DO  9000  1*1, NCR  OR 
INF0(  II=IA8S  (IAFO  ID) 

IF  (IOESTPIII  .60.0)  GO  TO  9000 
INFO  (II*-INFO(II 
9000  CONTINUE 

WRITE  (6.6001 
I  MO  *  OATE  /  1000  0 
I OAY  *  (OATE  10CC0*IMO)  /  100 
IYR  =  OATE  -  lkOOO'IMO  -  lOODOAY 
WRIT  c.  (6.  60  1  >  IPO,  IOAY.  IYR,  SHIFT 
WRITE  (  6,  6021 

2000  R£A0(5  ,5  00  I  S  TIM,  I  SIZE.  IOR I G,  I  T  ER  M 
IF(ST  IM.LE.0.01  GO  TO  2500 
SAVTIM  *STIM 


A  VS  IN  2 
1  AVS  IN  3 
AVSIN  6 
AVSIN  5 
AVSIN  6 
AVSIN  7 
AVSIN  S 
'AVSIN  9 
AVSIN  13 
AVSIN  11 
AVSIN  12 
AVSIN  13 
AVSIN  1* 
AVSIN  15 
AVSIN  16 
AVSIN  17 
AVSIN  13 
AVSIN  19 
AVSIN  20 
AVSIN  21 
AVSTN  22 
AVSIN  23 
AVSIN  26 
AVSIN  25 
AVSIN  26 
AVSIN  27 
AVSIN  28 
AVS  IN  29 
AVSTN  30 
AVSTN  31 
AV'IN  32 
AVSIN  33 
AVSIN  36 
AVSIN  35 
AVSIN  36 
AVSIN  3  7 
AVSIN  3  8 
AVSIN  39 
AVSIN  63 
AVSIN  61 
AVSIN  62 
AVSIN  43 
AVSIN  44 
AVSIN  45 
AVSIN  66 
AVSIN  47 
AVSIN  48 
AVSIN  49 
AVSIN  50 
AVSIN  51 
AVSIN  52 
AVSIN  53 
AVSIN  54 
AVSIN  55 
AVSIN  56 
AVSIN  57 
AVSIN  58 


55 


SIWROUTUC  ROSIN  74/76  ORT*«  ROtWO**/  TRACE  f IN  4.b*,bO  10/17/40  10. 


K080R*N0RDR» 1 

AVSIN  59 

IFiMSURT.EO.OI  H  5  TAR  T  *NQRQR 

AVSIN  ft  3 

to 

SORJK*SOROR-1 

AVStN  61 

I*H00i  IAB5<S0RCRI  .1001 

At/S  IN  6? 

NRITE  (6.6051  I  ,IS  J7E.  IORIG.  ITERM 

AVSIN  65 

IFItt-'I/5»*5I.EQ.OI  MRI  TE  16.  6067 

AVSTN  64 

lNF01N0R0RI=ISIZE*M*TCHi IORIG, I All *10000 FMRTCWi I  TERM, I*  21  »1"0 

AVSIN  65 

65 

1  AREA  INORORI  *1 A  1*  100*l»P 

AVSIN  66 

ONUMO  iNORORMSCROR 

AVSIN  67 

GO  TO  7000 

AVSTN  6ft 

c 

SORT  ORDERS  37  AREA 

AVSIN  69 

7500 

CI.RH  *N0R0R-1 

AVSTN  70 

70 

DO  7600  I«HST ART. LIMIT 

AVSIN  rt 

ISTART=I*1 

AVSIN  72 

IFIISMRT.GT.IiCRORI  GO  TO  760  0 

AVSTN  75 

00  7700  J*IST  ART  .NOROR 

AVSIN  74 

IEI  IARE  A  (  II.  LE  .  IAREA  (J  )l  GO  TC  27  00 

AVSIN  75 

7  5 

ISA»EA  =  IAREA  (J  I 

AVSIN  76 

ISAOel  -INFOIJI 

AVSIN  77 

I S AVF  C*  06UM6  TJ  > 

AVSIN  7ft 

ONUH0I Jl *0NUM6 (II 

AVSIN  79 

{AREA  i  J  1  *1  ARE  A  ill 

AVSTN  ftQ 

eo 

INFO! JM  1NF0I I 1 

AVSIN  fll 

ONUMHi  It  *IS*0EC 

AVSIN  fl? 

IAREA (II  'I  SAVE  A 

AVSTN  ft3 

InFO(I)=ISAOEI 

AVSJN  04 

7  700 

CONTINUE 

AVSIN  05 

as 

7600 

CONTINUE 

AVSIN  06 

C 

AVSTN  ft7 

C 

avstn  aft 

c 

MARK  START  OF  COMMONS.  ORIGIN,  DESTINATIONS 

AVSTN  69 

c 

AVSIN  90 

so 

UO  7600  1*1,16 

AVS  T  N  9t 

OeNDII 1*0 

AVSTN  9 ? 

7500 

0STA6T  <1  1-0 

AVSIN  95 

00  7300  I*MSTART, NOROR 

avstn  9** 

JA  RE  A=IAR£Ai  I!  /10  C 

AVSIN  95 

95 

IFIOSTARTUAREAI.CE.OI  OSTART  IJAREAI.I 

AVSIN  96 

IFil.EO.  NORORI  OENQ  (  JAREA  1  =1 

AVSIN  97 

IF(I* l.GT.NUROSI  GO  TO  2300 

AVSTN  90 

IE  « JAREA  ,NE.  I  AREA  il*  11/  1001  OENDI  JARE  AMI 

AVSIN  99 

7  000 

CONT  INUE 

AVS  TN100 

ISO 

c 

SORT  87  ORIGIN  AND  DESTINATION  IN  SAME  AREA 

AVS  T  N  1  0  1 

00  7200  1*1.  16 

AVSIN102 

IFIOSTARTII1.LE.OI  GO  TO  2200 

AVS  T  N 1 0  7 

ISTART*OSTART ill 

AVSTN104 

I ENO*OENOi II 

AVST  N106 

105 

IF  HSTART.EO  .IENOI  GO  TO  2200 

AVS  INI  0  6 

JENO* I ENO- 1 

AVSTN10* 

00  2250  J=ISTART,  JENO 

avs  r Nioa 

JS  T  ART  = JA l 

AVS  I  N 1  09 

00  2275  MJSTART.  IEND 

AVSTN110 

no 

IFilNFCi  J»  .LE.  INFOiKI  1  GO  TO  2275 

AVS INI  1 1 

ISAVtA*IAREAIJI 

A  VS I N 1 1  2 

ISAVFMIRFCIJI 

AVS  I  Nil  3 

ISAVE0*0NUM8iJI 

AVSTN114 

UREA  <31  «IAREA  IKI 

AVSTN1  15 

r)F, 


SUdRQU  TINE  AVSIN  74/74  OPf30  ROUN0  =  */  T  RACE.  FTN  4.6*460 


lib  INFOIJU INFO! K| 

ONUHB ( JIzOHUMe  IK) 

UREA  m  *  I SA  VE  4 
I NFO< K1 = ISAVE i 
ONUMfllKI  *  ISA V  E  C 
12  0  2275  CONTINUE 

2250  CONTINUE 
2200  CONTINUE 

WRITE (6.6061  SAVTIM 
Rt AD  15. 50 l>  FIX. FROPT 

125  WRITt  (o.60  7)  eUHP  (PROP U 1  I 

icktrl=d 

IF  (PhOPT  .LE.  01  ICMRL=? 

NTSAV=1 

N  T  =N T RKS  II  >*NTRKS  <2»*NTRKS  m 

130  C 

C  TRUCK  INPUT 

C 

RE  AD (5.5021  ItfHA 
IF  IILPHA  ,£Q.  1H  A)  GO  TO  4000 
135  00  2225  J=1.4 

NSAV( J) =NTRKS I J) 

TRKSAV  CJUPTTRKIJ  ) 

PTTRK(JI=PTTRK<J|  *K  TRKSI  J  ) 

2225  NT  RKS  I  J»  =Q 
140  iss=shift 

XShFT=IISS/1QQ> •63*HODIISS.130I 
I  SS=SAVTIh 

SORTING  ISS/100J  *60  ♦HOC!  I  S3.  I  0  01 
SORTI M^SORT iM-X$MFT 
145  SORTI N=RTTIrt-SOR TIN 

RTNAXzRTTIH 

IF  (SORTlH.Lc.RTHAX)  RT  HAX  =  SOR TIM 
IFIIRTKX.NE.  01  RTFAX  z  c  L  0  A  T  (  IRTHXI 
Is  NT 

150  NTSAVzNTfi 

I TCNT=0 

3000  RE  AD  15  .5  05  I  A  S  T  .  I  NTRK  .  IN  T I  M.  I  NC  AP 

IF  (INTRK.LE.G.OR.  INTRK.GT.  50 I  GO  TO  3100 
IFIAST.NE. 1H*)  GO  TO  3005 
155  ITCNT = ITCNf ♦! 

I NTRK  =  PT  TP  Kl 4)  *IT  CNT 
I  TYPE  =  4 

3  00  5  IF  IINTRK.LE. 40  I  ITYPE  =  3 
IFIINTRK  .LE. 301  ITYPE  =2 
16  C  IFIIMRK.LE.2  01  ITYPE=1 

IC  FTP  L  =  1 

NTRXS I  I  TYPE »  =  NTRK 5  II  TYPE* ♦ 1 
iNTPKsPTTRKC ITYPc) ♦  NTRKS <IT*PE) 

1=1*1 

165  TRUCK!  II  =  INTPK 

IFIINTIH.NE.0I  RTLIM(INTRK)  =  FLOA  T  (  I  NTI  HI 
IFIlNTIM.EO.ai  RT 1 1  HI  I  NT  R  Kl  =  rTHAk 

TLEFT  1 1  NTRK  I  =  RT  L I F  ( {  NT  R<  I 

IF  IINCAF.NE.OI  CAPAS  I  INTRO  =  INCAP 
170  GO  TO  3000 

3100  N  T  =1 


10/17/8  0  10.06.  1  2 


AVSIN116 
AVSINl 17 
AYS  INI  18 
AVSIN1  19 
A  VS  INI  20 
A  VS  I N 1  2 1 
AVS  I  M2? 
AVSTN123 
AVSIN1 ? 4 
AVS IN125 
AVS I N1 26 
AVSIN127 
A  VSI  N 1  ?  8 
AVSTN1  29 
AVS  I  N  1  30 
AVSTN131 
AVSIN1 32 
A  VS  I  N 1  3  3 
AVS  T  N1 34 
AVSIN1 35 
AVSIN1 36 
AVS  INI  .3  7 
AVSINl 38 
AVSIN139 

a  vs  i  m  40 

A  VSI N1 41 
A VS  I N  1  47 
AVSI N143 
AVS  I  N1  4  4 
A VS  I N 1  45 
AVSIN146 
AVS  INI  4  7 
AVSI N 1 4 A 
AVS  I  N1  4  9 
Ays  I n l 50 
AVSINl  51 
AVSIN 1 5? 
AVS  INI  «J 
AVSIN 154 
A  VSTNt  55 
AvSTNt  56 
AVSINl 5T 
AVS  TNI  56 
AVS INI  59 
AVS  TN160 
AVSINl fcl 
AVSINl 6? 
AVS  I  N 1  6 3 
A  V  S  T  N 1  64 
AVSINl  65 
AVSINl 66 
AVSINl fc7 
AVSINl 66 
AV/ST  N  1  69 
AVS I Nl 73 
AVSI N1 Tl 
AVSINl 72 


SUBROUTINE  AVSlN 


74/7* 


OPT  *  0  ROUNO* •/  TRACE 


FTN  4.4  *460 


10/17/80  10,04.1? 


17  5 


160 


165 


1  50 


195 


?u  0 


2  Q  5 


?10 


C 

4  00  0  WRITE  C  O,  6041 
IX*0 

30  44 0  0  IT  7P£  =  1  #  *♦ 

IFC  NTRKSCITVPfc)  .L  fc  .  0)  GO  TO  440  0 
NQ  =Nf  RKS  (IT  YP£  I 
OO  4*50  11=1, NC 
I  =  P  T  T  R  K  <  ITYPEI  #11 
IX*  IX  ♦  1 

IFCT^KSAVCIT  YPfc  I.  LT.  0)  TR* SA  V  C  I  T Y  Pr_  I  =  P  T  TRk  C  I  TY PE  I 
I V£W  =  I  - TRKSA V (  II  YPE) 

NR  Iff  Co.bQSl  IX. TYPE  Cl  TYPE  I .  I  YEH.CAPAC  c  i>,  rtlimc  I  > 
IFUIX-CIX/5I  •5KEO.  01  WRITE  <6.6061 
4  45  0  CONTINUE 
4  40  0  CONTINUE 
R  t  TU* N 

1QQ  FORMAT (0I0.2F6 .11 
10  1  FORMAT  C  5 1 6  « *.F  E  .  II 
102  FORMAT  (1016/716/  C1X.1  0  AS  I  I 

104  FORMAT (3F6. 1) 

105  FORMAT  C4lft/«I6/2I0  ) 

10  6  FORMAT  IF  b.  1. 16) 

Lfl  7  FCRHA  T  CT  6) 

500  FORMAT (F 5. l.lX,I?,lX.Afc,lX,Ab» 

501  FORMAT  (I  1. IX. I  II 

502  FORMAT (7X.A1  .SK.IJ) 

50  3  FORM«T  (12, IX  ,  AE.l  X.A6) 

50  4  FORMAT  (4b,  lx.  12,  1X.I  2.  1X.I  2.  IX  ,I3» 

505  FORM-T  (Al.I? , IX, 13. IX. I? I 

bOO  FORMAT ClHl/// 13X, 26( 1N-I/13X, 26H  AVS  SPECIAL  ORDER  PROGRAM/ 

*  tJx,2o(lN->> 

fcOl  FORMAT  C////20X ,I2,1H/, 12, IM/.  12// ?1X, F6.  1> 

60  2  FORMAT(/20«,b(lM-l/2JX.6HOPO£RS/2  3X,6(lM-)  /) 

603  FORMAT!  0X  ,  12 , 3X  ,  12  .  UM  PALLETS  F  RuM  .A6.4M  TO  ,  A  f>  I 
tO  4  FORMAT  C/2CX,  17  C  1H- I/20X,  i  7HVE  FICLES  SELF.CTED 

*  /20X, 1/ (1E-J /| 

605  FORMAT  UX,  12,  l  x.dHVEM  ICLt  ,A2,I2,12H  CAPACITY  =  ,IT, 

*  HM  PALLcTS,  15P,  ROOT*:  O'JRATICN  =  ,F6.  1,  fcH  MINS.  I 

bOfc  FORMA  T  Cl  HO  > 

bO  7  FORMAT C//SX, 1 4HBUMP  OP7ION  =  .Ab//) 

600  FORMAT C//5X ,2 1FSPECIAL  ORDER  TIME  *  ,F6.o> 

C  NO 


AVS  INI  7  T 
AVS INI >4 
a  vs  TNI  ’5 
AVSI N1 76 
Avs  ini  77 

A  VS I N  1  74 
AVS TNI  75 
AW^I N16  0 

AVS  I  N1  XI 

AVSlN  102 
A VSIN10T 
A  V^  I  N1  04 

A  I N 1 0  5 

AVSI N1 06 

AV*  INI  07 
AYS  I N160 

A  VS  INI  .,9 
AVSI N 190 
AW  S  T  N1  91 
AVST  N192 
A  VS  I NIQ3 
AVSIN194 
AWS  TNI  <95 
A  VS  INI  96 
AVSTN19? 
AVS  TNI  95 
AVST  N199 
AVSIN20C 
AVS  I  N?0  1 
AVSTN202 
A WST  N2  0  3 
AVS IN204 
AWSIN205 
AVSIN206 
4VSTN20  7 
AVS IN?08 
AVC  T  N ? 0 9 
AVcTN2lC 
AV  S  T  K?  1  1 
A  V  S  I  K  ?  1  2 
AVSIN21 3 
AVST  N2! 4 


SH 


ROUTINE:  AVSN2 


Description: 

AVSN2  inputs  the  regular  orders  to  be  considered,  the  vehicles 
to  handle  them,  and  the  date  and  shift  of  the  schedules  to  be  produced. 
AVSN2  also  sorts  orders  by  areas  and  origin  and  destination  warehouses  to 
reduce  execution  time.  Order  Information  is  packed  to  reduced  storage. 
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SUBROUTINE  AVSM 


7k/ 7k  CP T  =  0  ROUND**/  TRACE 


FTN  4,  6»460 


io/ir/8o  io.cw.i? 


1 

SUBROUT  I Rfc  AVSK2 

AVSN? 

? 

**•* 

•  AVSN? 

5 

C 

A  VS  N? 

4 

C  AVSIN  INPUTS  ALL  PARAMETERS  NECESSARY 

TOR 

the  SCHEDULE 

AVSN? 

5 

5 

C  COMPUTATIONS.  IT  ALSO  SORTS  ORDERS  ANO 

VEHICLES  TO 

AVSN  ? 

b 

0  TO  REDUCE  EXECUTION  TINE. 

A  VSN? 

7 

C 

AVr  N  ? 

ft 

••AVSN? 

5 

c 

AVSN? 

1  C 

10 

INTEGER  OSTART < 1 6)  ,OENC( lb) 

£  VSN? 

l  ‘ 

INTEGER  CAPAC. TRUCK.ONUNB *PTT RK *PToOR 

AVCN? 

1  ? 

•  ,OATE 

AV  ^  N  ? 

1  3 

ALPHA  WHNAN,  AST,  ILPHA  .  IORIG,  I  TERN 

AVSN? 

1  4 

REAL  LTIHF 

£  V*~  N  ? 

1  r 

15 

COMMON 

AVSN  ? 

•  f 

•/GEN/  R  T  TI  H,  N  I  NL  0  <  N) 

AVSN? 

1  ? 

•/HHINT  G/  NMARE.NAREAI16I 

AVSN? 

1  fc 

•/SCMEOL/  0  NU  M  6  (  2  Q 0) .INFO (2001  *IOESTP  ( 2  Q  0  ) » 

I A  RE  A  <20Q)  ,  LFRWO<?00  ). 

AVSN? 

1  9 

♦LBKWQ  <200)  .ECENO<200).lCRWOI20Q),ATlMEI200),STOPTC20ai 

AVSN? 

?: 

20 

•/TRUCKS/  PTSOR  C 50 1 . TRUCK ( 5 0 >, CAPA C (5  0) 

.STINE  1501  •  L  T I H  6  <501. 

AVSN? 

->  « 

*  RTlI M <5G> .TLtET <5 C) .NT 

AVSN? 

?? 

• / MHOU SE /  NHNAMC92) 

AVSN? 

?  3 

•2TIHTAB/  TTINE  13. <51  .TTIH2  <6> 

AVSN? 

■><* 

•/HSCLNS/  HOROR  .NT  RK  S  <  *.  > ,  P  T  T  R<  IN) 

AVSN? 

?b 

25 

•/INOPT/  SHIFT. CATE 

A  Vc  N? 

?r 

•/SPORO/'  ICNTRL.SAl/TIM.ISORO 

AVCV  ? 

7  7 

DATA  TYPE/2HST  .2HTR.2HTT,  2HIT/ 

AVSN? 

?ft 

WRITE<  6.  600I 

AVSN.? 

->  3 

READ  <5*500)  DATE 

A  Vr  N  2 

3? 

30 

IHO  -  OATE  /  UOOO 

AVSn  2 

7.  \ 

IiUT  —  <OATE  -  1  0  000‘INO)  /  100 

A  VS N? 

3" 

ITS  =  DATE  -  10Q0J»IHO  -  IOC  *  IOAY 

AV^N? 

.3  3 

RE  AO  <5.501 )  SHIFT 

AVSN? 

.3  4 

SAVTI  H=SMIFT 

AVSN? 

3S 

35 

READ* 5  *  5  C  2 )  I  OF  T 

A  VS  n  2 

3fc 

HR ITE  <  6  .  F  G  l  J  I  NO. I C AY.  IYR. SHIFT, I  OPT 

AVSN  2 

.3  7 

HRITF  <  6.  6021 

AVSN  ? 

3  A 

N  ORDR  =  0 

AVSN? 

.34 

2000  RE  AD  <5, 503)  I  S  1 2  c.  IOR I  G,  1  T  t  R  N 

A  V  r  N  ? 

u: 

40 

IF<ISI2E.LT.0>  CO  10  2500 

AVSN  ? 

4 

NQRDR^  RORDR ♦ 1 

AVSN  ? 

4? 

I^NOROR 

AVSN  ? 

43 

WRITE  <  6.603)  I  .ISI2E.I  ORIG,  IT  £RN 

AVSN? 

4u 

IF<<I-tI/5)*5).EQ.O)  WRITE  <b , CCb ) 

4VSN  2 

4  5 

65 

INFOtNOROR  >=ISIZE*H*TCH<  IOR  IS  .  I  All  *13000«>iaTCH<  IT  E  AW,  I  A?  1  *10  0 

AV  SN? 

4 

IAREAT  NORDR)'IA1*100AIA2 

A  VS  N  ? 

4  7 

ONUMBCNOROR) =KCROR 

AVSN? 

* 

CO  TO  2000 

AVSN? 

4  ? 

C  SORT  ORDERS  BY  AREA 

&Vr  M  2 

50 

50 

2500  LIMIT=NQRDR-1 

AVSN  ? 

5 ' 

OQ  2600  1=1. UNIT 

AVSN  ? 

S  T 

ISTART  =  I«l 

AVSN? 

5  3 

If  <ISTART.6T.N0R0RI  GO  TO  250  0 

AVSN  ? 

54 

00  2200  J=ISTART , NOR DR 

A  VSN? 

r-M 

55 

If  <IAREA  <1  I.LE  .  IAREA  <J  »  )  GO  TO  2200 

AV  S  N  ? 

5  V- 

ISAV£A  =  IAREA<  j> 

A  VS  V  ? 

6  7 

ISAVE  1=  INEO<  J  ) 

A  VS  N  ? 

r-  ft 

subroutine  »»s«2 


Th/Th  CPI  * fl  ROUNO**/  TRACE 


FIN  4.  6»t.80 


io/ir/80  lo.Ok.i? 


I  SAVE 0  “ONUMB <  J 1 

AVSN?  59 

ONUN8  <JI<0<<UHB  <11 

AVSN?  60 

60 

I  ARE  A  <  J<  ■  I  ARE  A  <  Z I 

AVSN?  61 

INFO<JI<INFO<I ! 

AVSN?  fe? 

ONUH8  <  IOISAVEC 

AVSN?  63 

IAREA<I<<ISAVEA 

AVSN  ?  64 

INF04  IXISAVEI 

AVSN?  65 

b> 

2711  CONTINUE 

AVSN?  66 

2 hit  CONTINUE 

AVSN?  67 

C 

AVSN?  6a 

c 

AVSN?  69 

C  NARK  START  OF  COMMONS.  ORIGIN.  DESTINATIONS 
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IF  < OS  TART  <JAREA<  . L  E • 0  <  OS  TART  <JAREA1*I 
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AVSN?  83 
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JSTART*J*l 
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AVSN?  91 
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AVSN?  93 
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AVSN?  94 
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AVSN?  96 
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AVSN?  97 
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AVSN?  93 

IAREA  <K)  = I SA  VE  A 

AVSN?  99 

INFO<K<<ISAVCI 

AVSN?1  30 

10  0 

ONUMB  <KI  =1  S  A  V E  C 

A  V^N  ?  1  0  l 

2275  COKTINUF 

AVSN? 1 0  ? 

2250  CONTINUE 

AVSN  ?1 0  3 

2200  CONTINUE 

AVSN?104 

C  TRUCK  INPUT 

A  VS  N  ?  1  0  5 

lOS 

C 

AVSN  ?1 06 

RE  AO  <5 .5041  ILFMA.  <NTRKS<II.I<1.J<.IRTMK 

AV  SN?  1  3  7 

R  T  HAK  =  RT  T  IM 

A  VS  N  ?  1  o  a 

IF<  IR  TFX.NE.  01  RTMAK  <  FlOAT<IRTN*I 

AVSN? 1 0 9 

I<0 

AVSN  ?1 13 
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I  TCNT  <0 

A V  SN  ? 1 1  1 

3000  RE A0<5  .5051  AS T , I NTRK . IN T I M , l NC AP 

AVS  N? 1 1  2 

IF  <AST  #NE.  IM*I  GO  TO  3005 

AVSN?1 13 

ITCNT=  ITCNT*l 

A  VS  N  ?  1 1  4 

INTRK<PTTRK<4<4ITCNT 

AVSN  ?1 15 
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SUBROUTINE  A  VS b? 
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OPT  =  0  ROUND  =  •/  TRACE 


FT  N  4.  b*  4  NO 


lO/ir/BO  10.04.1? 


11  5 

300  5 

If <INTfl< .Lfc. 0 . CR. InTRK.GT.  50 )  GO  TO  3100 

I  =IM 

TRUCK (II  =  I NTR* 

IFCINT IM.Nt. 0 >  RTLIHIIMRK)  *  FLOAT(INTIM) 

If  <  IHT  01  RT  IXfltlKTrtKI  =  R  TMA  X 

AVSN21  lb 
AVSN  2117 
AVSN21 16 
AVSN21  1  9 
AVSN21  20 

120 

XL  EFT  C 1NTRK  1  =  RTLJ  H  (INTRK) 

IF  (iNGAF.Nf.O)  CAP4C(INTRKI  =  INCAP 

GO  fJ  3000 

AVSN2121 
AVSN2122 
AVSN  2123 

3  100 
C 

NT  =1 

AVSN21 24 
AVSN21  25 
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c 

SORT  TRUCK  ANO  CALCULATE  NT»KS 

DO  3200  1  =  1 ♦ M 

00  3200  J  =  I,  M 

IF  (TRUCK  <JI  ,GE  .TRUCK(I  II  GO  TC  3203 

AVSN  2126 
AVSN21 27 
AVSN ?1 
AVSN?t  ?  q 
AVSN  21  3: 

130 

ITEHP*  TRUCK ( J  ) 

TkUCM  Jl  =  T  RUCK  (  1 1 

TRUCK(I)  =  ITtfP 

AVSN21  31 
AVSN  ? 1 3? 
AVSN  2 1 3  3 

3  23  0 

COM  INL? 

DO  3b  0  C  I  =  1  ,NT 

AVSN213*, 
AVSN  ? i 35 

135 

IF(TRUC< < I ) .It .20  I  GO  T)  330  0 
rF(rRUCKlI).LE.30 1  GO  TO  3433 

IF  (TRUCK  (II. Lfc .40 1  GO  TO  3500 

NT  RKS  (  4  1  =  NT*KS  <  4l  *1 

GO  TO  3600 

AV5N21 35 
AVSN21  32 

A VSN21 38 
AVSN21 39 
AVSN  21 43 

1*0 

3  30  0 

NTRKSI 1 1  =  nTPKSC 1)  ♦  1 

GO  TO  3a  0  0 

AVSN21 41 
AVS  N 2 1  4 2 

3400 

N  T  K<S (2 1  =  NTRKST2I  ♦  1 

GO  TO  3?  00 

AVSN  2143 
AVSN2144 

3500 

NTRKSC3I  =  NTkKS(3i  ♦  1 

AVSN21  45 

145 

3600 

C 

CONTINUE 

W*ITE(  o,  o0u) 

OJ  44  OU  JX  =1 • N  T 
i=TRUCK< JX) 

AVSN  21 4  6 
4VSN21  *«  " 
AVSN  21 48 
A  VS  N  2 1  49 
A V  S N ?  1  53 
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I T  YPt  =  1 

IFII.GT.PTT^^  (2M  IT  YP  E  -  2 

IFII.GT.PTTRM  3M  IfYPF=3 

IFII.  GT.  PTTkK  (4  II  I  T  Y  PF  =4 

UtH=I  -PTTRK  ( I  TYPcI 

A  VS  N  2  1  C1 

A  V  SN  2  1  5  "* 
AVSN  2 15 3 
A  Vc  N  2  1  S  i, 

£  VS N 2  15- 

155 

WRITE (b. 605)  J>9TVP£(I  1VPEI  .1  tfFH'CA*ACf  X)  'RriXMCI  ) 

IF(<JX-<JX/o)*  5  ).<_(!. 31  WRITE  (  o  ,  60  6  1 

AVSN21  56 
AVSN  ?',  c  7 

4400 

CONT I  NUc 

R  c.  T  U*  N 

A VSn  2 1 
AVSN21 59 

500 

FORMAT  (16) 

AVS  N  2  1  60 

160 

5  0  1 

FORMA  T  (P  5.  1) 

AVSN21  M 

502 

FORMAT  (I  1) 

AVSN  21 67 

50  3 

FORMAT (12* 1  X  ,  A  6 , 1 X  ,  A6 ) 

AVSN21 63 

504 

FORMA  T  <A6, lx • I 2 , 1 X, I 2.  IX, I 2. 1  X.  13) 

AVSN21 64 

50  5 

F JRMAT ( A  1  , 12,  IX, I J, IX,  I?) 

AVSN  2 l F5 
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FORMA  T  UH1/// 1  3X,  2  (  (  1H-)  /  t3X,  ?6M  A  VS  REGULAR  ORDER  PROGRAM/ 

*  t  3 X , 2  6 ( IN-  1) 

AV  SN?i  6b 

A  VS  N  2  1  6  7 

60  1 

FJKMAT(////2CX  ,[  2 , 1M/,I  2,  1H/,  I  2//  2  IX,  F  fe.  1//2  1X,Sh(OPT=,I1,H)) 

A  VSN? 1 68 

60  2 

FORMAT  (/?Q  X,d  (H-)/20  X,5N3ROfRS/23x.  6  (  l1-*-)  /) 

AVS  N21 6$ 

60  3 

FJPMmT(  AX  .12  *3X  ,  12  ,14H  PALLETS  F»OM  ,AS  ,«  h  TO  ,A6) 

AVSN21  73 

t/Q 
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FjrmAT  (/20X.17  (  1M  ••  1  /  2  Q  <  ,  17nvEmICLF  %  SELECTED 
•  /20  X, 1 7 ( 1 h- ) / ) 

AVSN  ? 1 7 1 
AVSN21 7  2 

60  5 

forma  t  (4  x,  I/ ,  i  o  )  vE  hicle  .A2,I2,i2H  capacity  -  ,  13  , 

•  8H  p  AL  Lc  T  j  ,  ISM,  RCUT  F  HURATIPS  =  ,fb.l,6M  MINS.  1 

AVSN 21 7  3 
AVSN  71  7  4 
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ITS 


ROUTINE:  AVSOUT 


ARGUMENT : 

L  -  Disk  unit  number  of  SCHED  file 

1,  SCHED 1 

2,  SCHED2 


Deseript ion: 

AVSOUT  creates  SCHED!  or  SCHED2  from  the  order  lists  and  other 
variable  values  at  the  completion  of  each  run. 


SUBROUTINE  AVSOUT 


7*/7< * 


FT  N  4.  6^460 


10/17/80  10.04 


cpt  =  c  pou'o-*/  icACt 


1 
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1  Q 


15 


20 


25 


3  U 


35 


4  C 


4  5 


50 


surtRourrhf  Avscuriu 

c 

. «  f  •  •  f  f  »  M  • 

c 

J  AVSOUT  CREATES  UPJATc  HlEj  TQ  J5FO  -IV  NEXT  AVS?  RUN 

C 

. . . . . . . . .MMMMM.MMMI 

c 

l  UcUlti  PTSOR.CAPAC.T  KLCk  ,  JATF  ,PT  T-<  ,  QN'JMB 

INTEGER  TRKSA  V • SO  •<  CR 

ALPHA  whaah 

R  c  AL  L  TI  ME 

COMMON 

•  /  3A  Vr  P /  NSAVIh),  U*SAV<u> 

•/SPO^O/  ICNTRL  .SA  V  TIM  ,  SORT  ? 

•/WHlNTG/  Hh  ARc  >N  APt  A  (1  hi 

*/3CMr  01/  ON'JMfl  I  20  O  ,  I  NF  3  I  20  C >  .  T  J£  3  TP  <?:?),  IARFA<200).LFewO<?00) 
•L3KWOI2rO)  .LCF«DI200»tL29MOC20(,l*ATlMF<2Jul.STORT<200» 

•/TRUCKS/  PTSOR  C5tJ)  •TRUCK!  5  0> .  CAPAC<5«>  ,  3  T I  ME  t  5  0 )  .  L  TI  M  E  <  5  0)  . 

•  RTLl M150) « TlfcF T( 50) .N T 
♦/WhOUSE/  W  Hn  AM  <92  I 
•/TINTA6/  TTINE  (3.45).  TTIM2I6) 

•/MSCLNS/  NORQR  , NTRKS (4 1 ,P T T RK  <4  I 
*/UOPT/  SHIFT. CATE 

RE  K I NO  L 
DU  2u  3  1  =  1,4* 

IF  CTkKSAVm.GE  .0  )  P  T  TR<  C I  >  =  T  RK  SA  V  ( I  I 
200  NTR<S  II)  =NTRKS  ID  ♦NSAVII) 

NT  =  NTRKSI 1» ♦NTRKSI2J  ♦NTRKSI3 > 

NT  =NT ♦ NT  RKS  <h  I 

WRITE  (L.  102)  N  KARE  ,  (  NAREAI  I)  ,  1=1,10,  (  WHNAMl  I)  ,1=  1 ,  NW  ARE  1 
WRITE  <L,1  0  0)  ICNUMem  .INFO  1C  I.IDESTPII  )  ,1  AREA  II)  , 

•  LFRwO  <1  KLBK  WL  I  1 1,  LCFWOI  I)  ,  LCRWOI  I)  ,  A  TIME  II)  ,  ST0PTI  I)  , 

•  1  =  1,  2C0» 

WRIT:  I  L  ,  10  1  I  IPTSORII)  .TRUCK  I  I  I  ,C  APAC  I  I )  ,S  TI  ME  II  )  ,LT  I  ME  II)  , 

•  RTLIMII  I.TLEFTII)  ,  1=1,50) 

WRITE  <L,lQ4)  (  ITTIME  II  ,J)  ,1=1  .3)  *J=1,45>  ,T  T I  M2 

WRITE  IL, 105)  PTT RK.NTRKS, NGR0R  ,SOROR 
WRITE  IL,  10  6)  SHIFT. OATE 
MARK  - 999 

WRITE!  L»  10  7)  HARK. 

ENOFILE  L 
RETURN 

100  FORMAT  |ft  I8,2Ffe  .11 

101  FORMAT  13  I8,vFc . D 

102  FORMAT!  1018/7  I  6/ (  IX,  1QA5) ) 

10  A  FORMAT  (3 F6. 1 ) 

105  FORMAT  <-*18/418/21  6) 

10  6  FORMA  TIF6.1 .18  ) 

10  7  FORMAT  116) 
tNO 


AVSOUT  2 
AVSOUT  3 
•AVSOUT  4 
AVSOUT  5 
AVSOUT  6 
AVSOUT  7 
■AVSOUT  8 
AVSOUT  9 
AVSOUT  10 
A  V  SO  U  T 1 1 
AVSOUT 1 2 
AVSOUT13 
AVSOUT 14 
A  VSOUT15 
AVSOUT 1 6 
AVSOUT  17 
AVSOUT 18 
AVSOUT 1 9 
AVSOUT  20 
AVSOUT21 
AVSOUT  22 
AVSOUT23 
AVSOUT  24 
AVSOUT  2  5 
AVSOUT  2 6 
A  V  SO  UT  27 
AVSOUT  28 
A  V  SO  UT  29 
AVSOUT  30 
AVSOUT 31 
AVSOUT3  2 
AVSOUT33 
AVSOUT  34 
AVSOUT35 
AVSOUT36 
AVSOUT  37 
AVSOUT  3  8 
AVSOUT  39 
AVSOUT40 
AV50UT41 
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AVS0UT43 
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AVSOUT  4  6 
AVSOUT47 
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AVS0UT49 
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ROUTINE:  BLDTR 


ARGUMENTS : 

IFILL  -  Number  of  order  parts  assigned  to  the  schedule  segment 
(Sign  of  IFILL  indicates  direction  of  delivery) 

IRCAP  -  Remaining  vehicle  capacity  given  in  pallets 

LSTORI)  -  List  number  of  lasL  order  added  to  route  segment 


Description: 

BLDTR  builds  schedule  segments  considering  space  available  on  the 
vehicle  and  the  sequence  of  order  delivery  for  specified  origin  and 
destination  areas.  Orders  selected  are  set  negative  and  linked  to  the 
vehicle  list.  IFILL  is  decremented  and  IRCAP  is  reduced  by  the  size  of 
the  order  loaded.  BLDTR  assigns  orders  to  the  vehicle  in  a  "first  on, 
last  off"  manner. 
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CONTINUE 
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SUBROUTINE  0.OTR 
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OPT=a  ROUND'*/  TRADE 


FTN  4.6»4*>n 


1  ?/  1  7/80  08.C7.S5 


l 

SU8ROUT  INE  8L0TR(I£ILL.HGAP,LST0(3» 

U  DTP 

7 

C» 

•  dldtr 

9 

3 

THIS  SUBROUTINE  3UI.0S  SONEOJLES  >  E  SHE  NTS  8»  USING 

9i  flTP 

4 

c 

tmf  transporter  truck  order  dp  load  /  unuUad 

9LDTP 

0 

3 

91  DTP 

7 

c 

IfRUCX  -  CURRc.  NT  VEHICLE  NO 

91  DTP 

% 

3 

ITV^t  -  ^EHiak  TfPI 

*1  OTP 

9 

C 

LAST*  -  last  WHOUSE  VISITEO 

U  DTP 

n 

13 

c 

LASTA  -  LAST  ARIA  VISITED 

91  D  TP 

u 

3 

NE  XT  4  -  NEXT  A  REA  TO  8E  /ISITEO 

U  D  T9 

i? 

C' 

•  DLDTP 

i  ( 

3 

LnT? 

14 

INTEGER  0NUN8.T  RUCK  .  PT  U< 

9LO  TP 

15 

15 

INTEGER  SORO«(23) .CAPAC.PTSOR 

UDTP 

15 

integer  splishui 

9 1  n  T  9 

IT 

ALPHA  WHNAM 

A  1  ?  1  ? 

1 

REAL  LTINE 

Rt  nT» 

19 

CO  MON 

91  DTP 

?1 

23 

•/GEN/  RTTIM.  NINLD14) 

D  T  R 

?t 
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H  OTP 

?> 
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U  DT  P 

?9 

•/TRUCKS/  P  TSQ*  CSQt  •T4JC<C*QI  'CA*AC<50  )  'STIMEiSC  t.  LTlHt  (51  1  ' 

UDTJ 

9  4 

*  R  T  L I* (  531  •  TLEFT(5J»  .NT 

91  OTP 

?s 

?■> 

*/H SCLNS/  NOROR. NTR  KS (4» .PTT?<  (41 

U  DTP 

7S 

*  /8 LOS /  LAST4.LASTA.NEXTA,  I  T9UC  K,  I T  YPE  ,  IPA  SS,  NPALT  S.  TI  HE 

DLDTP 

?T 

•/SEORO/  ICNTRL.SANrlH.ISORO 

9L0TP 

?9 

*/4 EOUSc/  4  HN AH  (921 

91  OTP 

28 

•  /SPLIT  /  NS  PL  IT 

91  D  T9 

93 

so 

•/LCAOSV/  L  0  AO 

9  L  D  T  P 

91 

NPAL  TS  =0 

9 l  nr? 

9’ 

HSPLITsNSPLlT 

U  DTP 

99 

L  S  TOE  1  s  1 

91  DT  ? 

94 

ISTHTsl 

9LHTP 

9i 

os 

It  *n=  NORO» 

9t  DTP 

9^ 

c 

nseg  -  no  orcc.es  on  scheijle  seghent 

9LOTP 

9  7 

c 

sjcn«  -  s a t/c  oeoers  of  seghent 

9 L  DTP 

99 

26  NS  EG  =  0 

9LDTP 

99 

ITSUM  =  LOAO 

91  DTP 

40 

43 

JAEEAs  LASTA*10  1  HEXTA 

9LDTR 

41 

03  LG  3  I=ISTARI.i;XO 

9LDT9 

4> 

IE  (IPASS.GT.2I  GO  TO  J5 

9LDT? 

49 

IF  (0KUM9<I>  .GE  .3  1  50  TO  IOC 

9 1 D  T  P 

U  4 

IF  lONJNR(I) .GT .  (-103 U  30  TO  IQ] 

9L  DTP 

45 

«»i 

3S  IF  (INEOCI  »  .LE.  Cl  GO  TO  10  3 

9Lnr? 

4  S 

IF  CJAR£  A.  N£.  IAPEAC  H  1  GD  TO  103 

9  L  D  T  P 

4  r 

I J -INF  0(1) /10 J00 

9  L  D  T  P 

4* 

IT=HOO  (INF 0(11/133.  loot 

9t  nro 

4  9 

IF  (NON  (  ITYPE  ,NHN»N(  IOt  .HA  NAN  (  ITU  ,EQ.  It  GO  TO  133 

9  LDTP 

FI 

5  3 

75  NS  EG=  N  SfcG*  1 

9L0TP 

c\ 

I  T  S(1M=  I  TSUNAHOO  (INFO  (II.  10CI 

9L  n  TP 

C  7 

SOflOK ( NSEG  )=  I 

9  L  D  TP 

59 

IOC  CONTINUE 

u  dtp 

F4 

I T  SAVE  s 0 

91  DTP 

*7 

55 

JABEASNEXT  A»luO  *  NE  XT  A 

91  DTP 

5f» 

IE  (NSEG. .£.01  RETURN 

9  l  D  T  p 

5T 

IF  (NSEG.NE.l  )  GO  TO  101 

91  DTP 

99 
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SUBROUTING  RIOTR 


7h/7N 


0  PT  =  0  R  0  LN  0  *  •  /  TRACE 


F  T  >4  4.  fef461 


\2r 12/8  0  18.07 


lORO=scRn»  <n 

ITSUN«  HOO(  INFO  (  I  CROJ  .1011 

GO  TO  102 

101  00  175  I* 1 • NSt  G 
lo«n=scRO»  ii » 

I T  XNUO I INF  01 IORD> /  10  0.  10  3  l 

no  i  >30  ii  =  i* nor  or 

IF  (IORO.E3.  Ill  GO  TO  181 
IT =*00 CINFOC IORO  1/100.1)01 
IF  ItNF  CCIII/1QC00.NE.ITI  SO  TO  183 
IF  INOO(IARcAIII)  *13J).NE.NEXTA  )  GO  TO  180 
IF  (I  TSA VE.  EQtv  I  GO  TO  MS 
IFCITSAVi.6Q.in  GO  TO  175 
185  ISUM=Q 

OO  IM  K=l.NO*OR 
IF  (INF  CIO  .IE.  U  GO  TO  15  1 
IF  lJ4Rc  A.  NE.  IAFEAIO  )  SO  TO  181 
I  3  l*  =  I  SUOHOOIINFO  CO  .  i  0  0  » 

181  CONTINUE 

IF  CISUM.LT .HINLOIITTPE M  GO  TO  180 

I  r  save  =  it 

IP  <*CO (IPA SS.2 »  .tJ. 0 »  IMS  S=  I3  ASS-1 

m  s  f  r»=  i 

18b  MStr.=  HSEG-l 

IF (NSEG.LE.0l  GO  TO  175 
JDPO=S0ROR  (MSt  G  I 

IF  CHOD  I  INFOC  JORO> /t  30  .  10  3  I  .FO.  IT  >  GO  TO  186 

II  SUN=  ITSUN-MOOCINFO  (JO? Ol  .1001 

SO*03 (NSFG) =Q 
GO  TO  18b 
180  CJNTIMUF 
175  CONTINUE 

102  IF  CITSUM.SE.  hinloitt  ypem  go  to  i:  j 

IF  CM-  UTA.EQ.LASTA)  return 
IF  IHOl  C  IPAb3,7  I . NE. 0  I  WITJRN 
lOi  CONTINUE 

CONSIDER  FHST  ORDERS  *iER  E  ORIGIN  =  l  A  ST  <4 
JS  AV  '  =  l* 

IT-  0 

IF  (NSE  ^.« 3. 1  I  GO  TO  05  0 

n  ,  F  G  V  » ►  G  -  1 
!) J  40)  0  Is  1  ,  NSl  G 

IF  CSORURC II .Lf . 3 I  GO  TO  030 
10*0=  S  C-?DR  Cl  » 
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ROUTINE:  BUILDS 


ARGUMENTS: 

IFIl.L  -  Number  of  order  parts  assigned  to  schedule  segment 
IRCRP  -  Remaining  vehicle  capacity  given  in  pallets 
LSTORD  -  List  number  of  last  order  added  to  route  segment 

Dese  r ip t ion : 

BUILDS  builds  schedule  segments  considering  space  available  on  the 
vehicle  and  the  sequence  of  order  delivery  for  specified  origin  and  desti¬ 
nation  areas.  Selected  orders  are  set  negative  and  linked  to  the  vehicle 
list.  I  FILL  is  incremented  and  TRCAP  is  reduced  by  the  size  of  the  order 
loaded.  BUILDS  assigns  orders  to  a  vehicle  in  a  "first  on,  first  off" 
manner  - 
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lasta  =  nf.xta 

put i  ns 

Xi.5 

last*=  ioest 

PUTLOG 

0  1 

353 

N  E  T'JF  N 

PUT  L 0G 

x 

FNC 

OUT  L  OS 

x- 

8  7 


4 

M 


ROUTINE:  MATCH 


ARGUMENTS: 

NAME  -  Alphanumeric  warehouse  name 
IAREA  -  Area  Indicator  of  "NAME"  warehouse 

Description: 

MATCH  searches  the  warehouse  name  list  for  a  match  for  NAME  and 
returns  its  warehouse  and  area  numbers. 
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rUNCT TDK  NCW(TTYPf ,TO,lT) 

avs? 

•> 

n°wfc  io, tt 

AVS2 

3 

K’ONs  C 

AVS2 

4 

rP  TO  ( irr «?Q0t I90f 400) f ITVPF 

AVS2 

5 

1*' 

<rr(I''.FP.*HlQ3.0P.TT.Fr:.3H193)  r»o 

TO 

9999 

AVS2 

6 

IF  (T".FO.  4H11T2.  0®.  IT.FO.  MU  17?  I 

GO 

TO  9999 

A  V  S  2 

7 

*ceTo.co.4MiFo^,r'&.iT.Fn,«.Hif>o^> 

GO 

TO  9999 

AVS2 

6 

CFTl«PN 

AVS? 

9 

:P(»^,rr.-»Piq3.oO,7T,Fr.3Hiqi)  GO 

TO 

9999 

AVS2 

10 

c  v  M 

AVS? 

11 

•  ^  n 

cr  TtJPN 

A  VS  2 

12 

ucr 

’F(»p,co.4HllT'»,no,jT.F0.4M1172) 

GO 

TO  9999 

A  VS? 

1  3 

Pf^UPN 

A  V  S  2 

14 

0  noc* 

k  O  W  r  « 

AVS? 

1 9 

rr  tijps 

A  V  S  2 

16 

c  fjr 

AVS? 

1  7 

FUNCTION  MATCH < NA ME, IAREAI 

HATCH 

2 

c 

MAT  CH 

3 

c 

FUNCTION  HATCH  FINOS  THE  POSITION  OF  NAME  IN  THE  ARRAY 

HATCH 

4 

c 

4  HNAH 

HAT  CH 

5 

c 

HATCH 

6 

c 

hatch 

7 

c 

•*•  COHHONS  *** 

HATCH 

8 

Alpha  nhnam, name 

HATCH 

9 

cohhcn/hhintg/  nr  ape  •  n  are  A  ( 1 6  ) 

HATCH 

10 

COHMCN/WHOUSE/  NHNAHC92) 

HATCH 

11 

c 

HATCH 

12 

AREA  *0 

HATCH 

13 

rATCH  =  0 

MATCH 

14 

0  1  1000  1  =  1  ,  NMARE 

MATCH 

15 

IMNAME.EQ.NHNAiCIM  GO  TO  20  00 

MATCH 

16 

1  coo 

CONT  INUt 

HATCH 

17 

R  c  T  Ufc  N 

HA  TC  H 

18 

2000 

HA  t:h= I 

MATCH 

19 

1=  t 

MATCH 

20 

I  CHK  =  Q 

H  AT  CH 

21 

oo  3oou  j  =  i • i e 

MATS  H 

22 

I  CH  K  -  IC“*  *♦  NARt  A  (  J  » 

MAT  CH 

23 

IF  (I,  tt.  ICHK  )  CO  TC  4000 

MAT  CH 

24 

3000 

COM  IN U£ 

HATCH 

25 

Rl  TURN 

HATCH 

26 

4  0  0  0 

I  ARE  A*  J 

HATCH 

27 

R  t  TUx  N 

HA  TC  H 

28 

E  ND 

HATCH 

29 

90 


ROUTINE:  ROUTE 


ARGUMENT:  IAVS  -  Run  option  indicator 

1,  AVS 1 

2.  AVS 2 

Uesc  ript ion: 

ROUTE  applies  the  algorithm  used  in  assigning  orders  to  vehicle 
It  determines  the  next  area  of  delivery  for  each  available  vehicle  b> 
searching  the  available  orders,  noting  transfer  and  cargo  movement 
times.  The  next  area  to  be  encountered  by  a  vehicle  is  detemined  by 
least  travel  time  for  which  a  minimum  quantity  of  cargo  is  to  be  move 
Other  restrictions,  such  as  the  accessibility  of  the  area  to  the  vein 
and  the  order  of  cargo  delivery,  are  also  imposed  on  the  selection  ■  t 
next  area.  Each  area  selected  may  be  an  order  origin  area,  destinati 
area,  or  both.  Once  origin  and  destination  areas  are  known,  ROUTE  ca 
RLDTR  (first  on,  last  off)  or  BUILDS  (first  on,  last  of.)  to  assign 
orders  to  the  vehicle.  The  current  area  Is  updated  and  the  next  area 
selection  process  is  repeated  until  the  vehicle  is  nut  of  time  or  the 
quantity  of  unassigned  cargo  does  not  meet  delivery  requirements. 
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SAVE  ORIGIN 
AREA 
SAVE  DEST 
AREA 
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CALL 

BUILDS 
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SUBROUTINE  ROUTF  74/74  OPT=0  ROUND**/  TRICE  FT 4  4.6*4611 

12/12/60 

06.07 

1 

SUBROUTINE  ROUTE  (IAVS) 

ROUTE 

2 

C« 

>•  ROUTE 

3 

C 

ROUTE  ASSIGNS  ORDERS  TO  AVAIL*  8LE  VEHICLES 

ROUTE 

k 

w 

•  COMMON  AREA.  ORIGIN  A«0  DESTINATIONS 

ROUTE 

5 

5 

c 

•  NEAREST  AREA  TO  LAST  4A  REHOUSE  SERVICED 

ROUTE 

6 

2  4 

►•  ROUTE 

7 

integer  lstsvi  i6.i6> 

ROUTE 

A 

integer  pttrk.onumb 

ROUTE 

R 

INTEGER  PTSOR.CAPAC.  TRUCK.  OATE 

ROUTE 

10 

1C 

INTEGER  TVPORD(4) 

ROUTE 

11 

ALPHA  HHNAH 

A  1212 

3 

REAL  LTINE 

ROUTE 

13 

COMMON 

ROJTE 

14 

•/GEN/  RTTIM,HINLO(4> 

ROUTE 

15 

lb 

•/HhINTG/  NMARE  .NAREA  (161 

ROUTE 

16 

•/SCHOOL/  0NUM3  (  233)  .  INFJ<  200  1  .  ID  ES  T  P  (  2  0  0 1  ,  1  ARE  A  (200  1  .  LFR4  0  *708  1. 

ROUTE 

17 

*LdKtfO(2QOI  .LCFWD  (203  1  .  LCOW  O  (  2  3  0  t .  A  TINE  ( 20  0  > .  S  TOPT  (200) 

ROUTE 

16 

•/TRUCKS/  PTSOR.  (50I.TRUC<(  5  0)  .  C  ABAC)  5  0)  .ST  IME(  50) .  LTI  ME  (5  O)  . 

ROUTE 

IB 

•  RTLIN(5JI  .TLEFT(53I  .NT 

ROOT- 

23 

23 

•/A  HOUSE/  A  HN  AM  (921 

ROUTE 

21 

•/TIMTAB/  TTIHE (3.45) .TTTH?(6) 

ROUTE 

22 

•/MSCLNS/  NOROR.NTRKS(4).PTT»K(4) 

ROUTE 

23 

•/INOPT/  SHIFT. OATE 

ROUTE 

2k 

•/BIDS/  LAST  M.L  ASTA.NEXTA.  1  TRUC  K,  ITT  PE  ,  IP*  SS.  NPALTS  .TI  ME 

ROUTE 

25 

75 

•  /SPD3 0/  ICNTRL  .SAVTIH.ISORO 

ROUTE 

26 

* / SFLI T /  NSPLIT 

ROUTE 

27 

•/LOAOSV/  LOAO 

ROUTE 

2* 

OATA  TYPDRO/l. 2,3.4/ 

ROUTE 

23 

IRESET=0 

ROUTE 

33 

33 

3 

ROJTE 

31 

C  CN SI  OFT  NEXT  AVAILABLE  VEHICLE 

ROUTE 

32 

£ 

Type  *  l.STRAOOLES 

ROUTE 

3.3 

4/ 

TYRE  =2,  TRANSPORTERS 

ROUTE 

34 

-N 

-» 

TYPE  *3,  TRACTOR  TRAILERS 

ROUTE 

35 

3b 

C 

TYPE**,  INDUSTRIAL  TRACTOR 

ROUTE 

36 

ROUTE 

37 

c 

TOTAL  NUMBER  OF  PALLETS  TO  BE  MOVED  IN  SHIFT 

ROUTE 

33 

z 

ROUTE 

3B 

NSPL  I  T  *  l 

ROUTE 

40 

43 

ISFASS  =  3 

ROUTE 

41 

IF(IAVS.EQ.l)  ISPASS*2 

ROJTE 

42 

LPA=2 

RO'JTE 

43 

ISS=SH  I FT 

ROUTE 

44 

Y3PFT  =  IISS/1GC  )  •6G*H00(  ISS.  100  ) 

ROUTE 

45 

<>•5 

ISS*SA  VTIM 

ROUTE 

46 

TME=(ISS/103)*60*MOO(ISS*IC)) 

route 

47 

TH  £  =  TH  E -XSHFT 

ROUTE 

43 

Tr1E  =  &.  TT IM-TME 

ROUTE 

4R 

noff=o 

ROUTE 

53 

53 

Oj  25  1=1, NORQR 

ROUTE 

51 

IF  (INFC(I)  .LE.  C)  GO  TO  25 

ROUTE 

52 

IF  (HOO  (IAREA  (I  )  ,130)  .GT.10  )  MO  FF  =  NOFF*MOO  ( INFO(  II  ,103) 

route 

53 

25  CONTINUE 

ROUTE 

54 

51  ITYPF=0 

ROUTE 

55 

55 

IC  NT  =  0 

ROUTE 

56 

100  IC  NT=ICNT *  1 

ROUTE 

57 

IF  (ICNT  .GT  .4)  GO  TO  B000 

ROUTE 

55 
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SUBROUTIN 

* 

ROUTE  74/24  OPT  =  0  ROUIO**/  TRACE  FM 

<*•  6UM 

17/12/80 

39.  CT 

I T  7PE  *  TVPORO  CICNfl 

ROUTE 

59 

IFIITTPE,  GT.2.ANO.ICNTR_.NE.O>  10  TO  100 

route 

63 

60 

HTRKC*NTRKSCITTP£I 

pojte 

6t 

IF1MTRKS.LE.01  GO  TO  100 

route 

67 

OQ  83  01:1.16 

70'JTE 

6T 

03  8C  NM  = 1.16 

®Oll  TE 

64 

80 

Lsrsv<oj.HHi=c 

ROUTE 

6  5 

65 

DO  20 0  L=1.NTRKS 

71  JTE 

66 

ITPUCK=PTTRK (ITTPtl  *L 

7  OllTE 

67 

LOCFF 5  u 

route 

69 

LO  30=  0 

ROUTE 

*9 

IFILL=G 

70UTE 

70 

70 

IRCAP*CAPAC(  ITfcUCKl 

ROUTE 

c 

OETERN  INE  LAST  4  ARE H OUST  3F  ME  HICLL 

ROUTE 

7? 

LA  STW=21 

7  n  ij  r  e 

tt 

LASTa=2 

ROIJTF 

7* 

IF  1ICNIRL.NE.1  1  GO  TO  HJ 

ROUTE 

76 

75 

IF1NSPLTT.E0.11  GO  TO  150 

POLITE 

▼5 

180 

IF  (PTSCRUTRUCM  .Lt.  01  SO  TO  150 

9  0  J  T  • 

7 V 

LI  NK=PTS3R<ITRU0K> 

ROUTE 

76 

laSta=mooi  iarlAILinki  .in  i 

PO'JTE 

79 

LA  ST4  =  M001IA8S(  INFO  (LINO  1  /too  ,1001 

7  OllTE 

*0 

as 

185 

LINKS:!  FRW  DILI  NK  1 

ROUTE 

61 

IF  (LINKS. LE.  0)  GO  TO  155 

7VJTE 

6? 

IF  (ITTPE.NE.  1.  AND.  IOI3TJ<  LINKS1  ,5T  .IDESTPILINKIt 

GO  TO 

175 

route 

AT 

IF  1ITVPE.EQ.  1.  ANO.IDESTPtLINKSl.LT.IDESTPtLINKl  1 

GO  TO 

1  75 

ROUTr 

94 

L  AST  A  =  NOQ  1  IANLAILINKSI.  10  01 

ROUTE 

A5 

§5 

LASTN  =  NOO  IIABSI INFOILINKSI1  /  IQO.UOl 

7  OllTE 

86 

175 

LINK=LINKS 

»OUTr 

87 

GO  TO  185 

ROUTE 

88 

155 

IFlTLEFTlITRUCKl-TlwASTA.LPA,  1TTPEI  .LE.TNEl  GO  TO 

15] 

7  OllTE 

87 

Tl£FT  (  I TRUC Kl  =  THE 

ROJTE 

93 

9G 

L  ASTAs  2 

7  0  JTE 

91 

LASTWa 23 

°0  JTE 

9? 

c 

DETERMINE  NEAREST  MARIHDUSE  HIT!  UNFILLED  OROER 

7  0  JTE 

9T 

* 

ORIGIN  AREA  =  LASTA 

POLITE 

94 

c 

ChEC*  if  ANT  OROER  ORIGINATES  IN  LAST  AREA 

7  OllTE 

95 

95 

■J 

70JTE 

96 

c 

IPASS  =  1  BUI  L  0  N3N-OEA1ENO  OR1ERS 

ROUTE 

97 

c 

IPASS  =  ?  dUlLO  OEAOENl  1ROTRS 

70  JTE 

98 

* 

70JTE 

99 

ISO 

IPASS:  ISPASS 

ROUTE 

100 

100 

NO  ELC= 0 

70UTE 

101 

IFILOAO.LE.Ol  GO  TO  300 

ROUTE 

107 

311 

00  160  KK: 1,16 

ROUTE 

101 

00  160  MMsl.lo 

ROUTE 

104 

160 

LSTSVl  KK.MM1  =0 

ROUTE 

1  05 

105 

300 

IPASS  =  IPASS*1 

ROUTE 

106 

312 

IF1IPASS.GT.4I  GO  TO  2  Oil 

ROJTE 

107 

307 

NEKTAsO 

70  JTE 

108 

TIME=  1300.  0 

ROUTE 

109 

ISTACT=1 

70JTE 

11) 

110 

IE  N0  =  N  OR3R 

7  0  JTE 

111 

c 

SEARCH  TO  PINO  NEAREST  DESTINATION  AREA  TO  LASTA 

ROUTE 

11? 

302 

00  250  I  =  IST ART  ,  ItNO 

ROJTE 

HI 

IF (IRA  SS. GT , 2 1  GO  TO  30T 

ROUTE 

114 

IF10NUMB1I1  .Gt.01  GO  TO  250 

ROUTE 

115 

97 
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110 

IF  CONUNBII  I.GT  .  1*10011  '.1  T3  250 

115 

301 

IF  CLAST  4,  N£ .  14  REA  < II  /  1011  33  TO  750 

Qftllf  ; 

11' 

NXT*NOOCIAR£AC  II  .109  1 

>  n  i  T  r 

118 

IF  CLSTSVCLASTA.8XTl.Nt. 31  33  TO  700 

•  OllTf 

in 

IF  IIMFOIII  .IE.  01  30  TO  701 

®TJT“ 

t  7) 

170 

lOsIOFCdl/lOCCO 

VOJTF 

1  71 

ITSNOOI  INFO!  11/ 130. 1001 

17’ 

IF  (NOW  1  If  VP£  .NMNAMC IOI  .4NNAX  (ITM.cQ.lt  IO  T3  753 

»outf 

175 

I  JfcST •  MOOT  I  ARt  A  4  It  •  1001 

&OUTF 

17. 

IFIITVPF.NE.3I  30  TO  300 

PTtiTr 

125 

12} 

IF  TNOFFflOOFF.LT. MIN'  him  33  TD  310 

» mitr 

1  ?N 

IF  CNOFF.LOOFF.L  T.NIN..*  Til  33  T3  310 

oniiTc 

1?’ 

IF  CI3EST.LE.  10  1  30  TO  23) 

>OJTr 

1  28 

33  T3  305 

»  OilT^ 

175 

310 

IF  CIOEST.GT.  l£  1  CO  TO  253 

9  OUT? 

1  51 

130 

308 

IF  CtFILL.EO.0l  CO  T3  304 

*  Oil  Tf 

1  51 

IF  (TCIOEST  «NSA V  E  .ITTPEI.GT  .10.  Ci  1  CO  TO  250 

»nur? 

1  57 

304 

CONTINUE 

»miTF 

1  55 

TTEMP=TCLASTA.  IQ£ST.ITV»F| 

®miTf 

1  54 

IF  CNOnciP8SS.2l.E3.ai  C)  TO  201 

>niiTE 

1  55 

1  31 

JSTI.T  =  1 

poiitf 

1  55 

J£  NO-NOROR 

»OJTi 

1  5* 

TT£NPS  =  1030.a 

1  58 

305 

OO  220  II  =  JSTAR  f.  JE80 

?miTF 

1  53 

IFCIP8SS.GT.2I  CO  TO  30i 

141 

140 

IF  CO  NUN  5 1  III.3E.0I  30  T1  223 

>  nine 

141 

IF  CONUMdCIIl.GT.  C-1031  1  30  T3  223 

1  4  ' 

306 

IFCINFOCIII.LE.3l  33  TO  223 

OJTE 

1  4  5 

IFCIAREACIII/100.8E.I3ESTI  G3  T3  22 0 

®f>UTF 

144 

I3  =  INFOCIII/130aa 

*njTe 

145 

145 

IT=M0O  CINFOCII  1/  10  0.  10  01 

POIITF 

146 

tFtN0HtITVPE.NHNAHtI0l.44NAXtITII.EQ.il  30  T)  220 

OflUTF 

14' 

TTEHF  1  =  TCI4R£4  till  /100.C03  CI  AR  E4  C 1 1 1  .  1001  . 1  T  VPE 1 

PflllTE 

148 

IF  CTTF  MPS.GT.TTEMP1I  TTEMPS=TTEMPl 

»  n  j  r  z 

14R 

7  20 

CONTINUE 

150 

153 

TT£NPpTTENP4TTENPS 

»miT  e 

151 

251 

IFCTTEMP.SE. TINtI  30  TO  250 

9  OJTF 

15’ 

NEXTA=IOEST 

*njTF 

155 

TIPFrTTEXP 

<?nuTF 

154 

250 

CONTINUE 

9MITE. 

166 

155 

C 

TRANSFER  TO  BUI LO  NEXT  S0NE3JLE  SEGMENT 

»oute 

1*6 

IF  CNEXTA.LE.  01  CO  TO  211 

90UTC 

15T 

c 

901ITE 

158 

c 

DETERMINE  PALLETS  TO  BE  MOVEO  FROM  L4ST4  TO  NEXT! 

90JT  F 

166 

c 

omiTF 

161 

160 

ICHECK  =  LASTA<>10  3*NEXTA 

*njTF 

t  61 

NS  AMC  s  3 

qout? 

16’ 

NP  AL  T4  =  1 

onutF 

165 

OO  262  JJ= 1 • NOR  OR 

»nuTe 

164 

IF  CINFO  CJJI.LE.  01  GO  TO  252 

?  ftUTF 

165 

165 

IF  CLASTA.NE.  IAREACJJI/IJO  1  33  T3  252 

ontiTP 

165 

io  =  infccjji/i;ooo 

16' 

IT=MOO  CINFOC  JJI  /  100.  1001 

^  on  tp 

166 

IFCN0NCITrPE.NHN4MCI0l.4MNA8CITII.t3.il  S3  T)  252 

enuTi 

16  3 

IF  CHS  PL  IT.E0.1.ANO.MOOIINFOCJJI.133I.EO.IR34P)  S3  T1  256 

91J1E 

178 

173 

IF CNSPLIT.EO.2.4NO.8O3CINF0I JJI.  1301 .LE. IRC4»I  30  TO  255 

9  miTE 

i  r  t 

IFCNSPLIT.EQ.3I  GO  TO  255 

*OlJTe 

1’  ’ 
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r.o  TO  2  6? 

POUTE 

171 

2  66 

irtiMtti  jji  .Nt.iCHEcm  r.o  ra  ?5% 

ROUTE 

174 

NPALl  A*NPALl  A*N00(  INFO)  1  J  1  .100) 

•  OUTE 

175 

l  7  * 

GO  T;i  2c2 

ROUTE 

176 

»»«. 

IF  (TIL  AST*  ,  Moot  IMF*  1 J Jl  .  ICO )  .  I T Y > E )  .L  E.  18 .  D ) 

ROUTE 

177 

NSAHE  *Ni  ANt*N00I  INFOU  J  1  .10  9  1 

ROUTE 

176 

2*2 

COMINJr 

ROUTE 

174 

NP«LTA  =  NPAlTAalOAO 

ROUTE 

ins 

10* 

IF  dOELC.Nt.  01  4 PAL  I  4*0 

ROUTE 

141 

NJEL3* J 

ROUTE 

18? 

NSAM?*  6SAME *LCAO 

ROJTE 

183 

j 

ROUTE 

184 

~ 

OtTE'MlNc  MIN  l  0  A  J  F  38  •:  *  Z  M  (YP£ 

ROUTE 

145 

1  0? 

NS  AM*  =  NS  A  ME  *  NP  AL  TA 

ROUTE 

186 

1.3  T3  1221.  222,  ZZS.  ZZZI.  ITY»E 

ROUTE 

147 

221 

IF  INIALTA.LT. ilNLJII  TYP-t  1  '.3  T3  253 

ROUTE 

144 

r.o  in  *0) 

ROUTE 

184 

ZZZ 

IF  (Nf-AL  TA.f.f  .M  INL.1I  HYP-  1  1  G3  10  400 

ROUTE 

140 

1  9J 

IF  INSAHF.LT.  Nl  NL3II  T  YPEI  1  GO  IC  253 

ROUTE 

141 

r.o  in  ,03 

ROJTE 

142 

zzs 

IF  (NOFF.LOOFF.&E.MINLQdTYPft  1  SO  IO  430 

ROUTE 

143 

IF  INSANE. G£.  HINLO(ITyPE)  1  GO  10  403 

ROUTE 

144 

IF  (NPALTA  .Gc.MINLOII  TYPE  )  1  r.l  to  430 

route 

145 

1  9^ 

c 

T»*  TO  FINO  lfc«T  ASIA  NIT*  MI  N  LOAO  TO  RE  NOTED 

ROUTE 

146 

253 

LiTSYIL  AST  A, ME  XT  A)*  LAST  A 

ROUTE 

147 

GO  TO  307 

ROUTE 

144 

" 

determine  nearest  naremuse  area  to  lasta 

route 

144 

3 

sea?:m  areas  to  find  nearest  area  to  lasta 

ROUTE 

203 

^CJ 

210 

IF  IITYPF.Nt.tl  SO  T3  21? 

ROUTE 

201 

IF  (IFILL.EQ.0I  GO  T 3  212 

ROUTE 

2P7 

lasta*nsaye 

ROUTE 

20  3 

GO  T3  4  050 

ROUTE 

204 

212 

LSTAjO 

ROJTE 

205 

^G> 

L3  TN  =  0 

route 

206 

Nt  »TA*0 

ROUTE 

207 

TI?FS«  1  000.0 

ROUTE 

208 

OO  260  1*1.16 

ROUTE 

20R 

IF  (I.E  0. LASTA)  SO  TO  260 

ROUTE 

210 

J 

ISTA?T  *1 

route 

211 

It  60=N0R0R 

ROUTE 

21» 

TE  MPl *  T (LASTA. I.ITYPEI 

ROUTE 

213 

TtMP2=ia00.Q 

ROUTE 

214 

no  265  II* ISTART.IENO 

ROUTE 

215 

?  1  > 

IFdPASS.GT.2l  SO  U  300 

ROUTE 

216 

IF(ONUNR(II).GE.0>  GO  TT1  265 

ROUTE 

217 

IF(0NUM8(II).GT.  (-100)1  '-0  TO  265 

ROUTE 

214 

30» 

IF  (iNFO(II).Lt.O  )  GO  TO  265 

ROUTE 

214 

IF  (I.Nt  .1  AREA  ( II  )/100)  S3  T3  2  65 

ROUTE 

2  20 

22  j 

I3*INF  CTID/ICCOO 

ROUTE 

221 

it  =Mno  (  info ai )  Fioo.  u oi 

ROUTE 

22? 

IF  (NON  ( ITYPE  .HHNAKI  01  ,NHNA4(I  T)  1  .tIJ.l)  r.3  T  3  265 

ROUTE 

223 

13  E  S  T  =  MOOT  IARt  A(  II)  ,  1001 

ROUTE 

224 

IF  (T  1 1  .  IOEST.ITYPE  I.GE.tOOO.O)  GO  TO  265 

ROUTE 

225 

2  2  5 

IF  (IFILL.EO.8l  GO  T3  274 

ROUTE 

226 

IF  (T  (  I  OEST  ,  NS  A  V  E .  ITYPE)  .ST  .10  *  C)  GO  TO  265 

ROUTE 

227 

27*. 

IF  (MOO  IIPASS.2)  .£3.0)  G)  TO  2 70 

ROUTE 

224 

00  275  II T  =  1ST  A  RT.  IE  NO 

ROUTE 

2  ?4 

99 


SUBROUTINE 

ROUTE 

/W74  OPT*J  ROUND**/  TRA3E 

FT! 

6. 

6*660 

12/12/80 

38.07.  > 

IFIInFOIIIII  .Lb.  31  SO  n  >75 

ROUTE 

233 

2  33 

IF  1IPASS.GT.2I  GO  TO  >76 

ROUTE 

231 

IFIONUMRIIII  I.GE.  31  GO  13  275 

ROUTE 

232 

278 

IFIIIIEST.NE.IAREAIIIII/Iflll  SO  TO  275 

ROUTE 

233 

GO  TO  2T0 

ROUTE 

236 

275 

CONTINUE 

ROUTE 

235 

235 

GO  TO  260 

ROUTE 

236 

270 

IF  IT£MF>.Lt.TII  .lOeST.ITTPE)  1  r,0  TO  265 

ROUTE 

237 

C 

JCES  N-.Xf  ARlA  HARE  NIN  LGAO  FOR  THIS  TT PE 

ROUTE 

238 

IF  Hr»pe.NE.3l  GO  TO  205 

ROUTE 

234 

IF  INOFF  *LOOFF  .LT.MINLDI7II  SO  TO  205 

ROUTE 

260 

200 

IF  (inEST.lt.  131  GO  TO  255 

ROUTE 

261 

GO  TO  235 

ROUTE 

242 

205 

IF  (Tr.EST.GT.  i;  )  GO  TO  255 

ROUTE 

243 

208 

NS  VF-XGO<I  AREA  (  III.  100  1 

ROUTE 

246 

IFCLSTSVIItNSVEI  .NE.  01  '.0  TO  265 

ROUTE 

24, 

2  *»  3 

T_MP?  =  T  II  .IOEST  .IITPcI 

ROUTE 

266 

LS*VrM  =  INFOItII/11000 

ROUTE 

24  r 

NSAR-A  =  MO0<IA>.t4lIII  .1011 

ROUTE 

244 

2  65 

CONT  INUF 

ROUTE 

244 

TIME  =  T£MPl*TtMP? 

route 

253 

253 

IF  ITIHE.SF.T  IMES  1  GO  TO  250 

ROUTE 

25t 

TIMES* iime 

ROUTE 

25? 

LSTM  =  LSAT2M 

ROUTE 

253 

N£  YT  A*  N  SA  6  £  A 

ROUTE 

254 

U3TA=I 

ROUTE 

255 

2  55 

260 

CONTINUE 

ROUTE 

256 

IF  (TIHES.GE.  10  0  0  .3  1  GOTO  300 

ROUTE 

257 

1FILSTA.LE.0I  GO  TO  300 

ROUTE 

254 

NS  ANf  *  a 

ROUTE 

259 

npalta=0 

ROUTE 

260 

2ta 

ICHFnK-LSTA*lGQ  *NE  XTA 

ROUTE 

261 

no  2bl  UU=l.NORQR 

ROUTE 

26? 

IF  (INFCIJJI  .LE.0I  SO  TO  261 

ROUTE 

263 

IF (NSPLIT.EO.I.ANO.NOOIINPOIJJI, 130T.EQ. IRCAPI 

GO 

TO 

263 

ROUTE 

264 

IF  INSPLIT.  £0.2  .ANO.NOOIINF  01  3  J  1,1 03  »  .LE.IRCAP) 

S3 

TO 

260 

ROUTE 

265 

2  o3 

IFINSPLIT.E0.3I  GO  TO  251 

ROUTE 

265 

GO  TO  261 

ROUTE 

267 

263 

IFlLSTA.NE.IASEAUJIFlflll  GO  TO  261 

ROUTE 

268 

IJ=lNFCIJUI/15C33 

ROUTE 

269 

it  shoo iin=oijji /iaa. loot 

ROUTE 

270 

220 

IF  INCH  HTTP*. MHNANIIOI  .RMNAHIITM  .EQ.ll  GO  TO 

261 

ROUTE 

271 

IFIICHECK.NE.IAREAIJJI  1  GO  TO  266 

ROUTE 

272 

NP6LTA  =  NPALTA*M00IINF0I  IJI  ,100  1 

ROUTE 

273 

GO  TO  261 

ROUTE 

274 

2  66 

IFITILSTA.HOQlIARtAl  JJI  .  10  0>  .  I  TYPE)  .LE.H.DT 

ROUTE 

275 

275 

i 

1  NSAME  =  N5AME*M001INFOt  JJI  .  1001 

ROUTE 

276 

261 

continue 

ROUTE 

277 

C 

OE  TE  AMINE  MIN  L  DAO  FOR  EACH  TT  PE 

ROUTE 

2?8 

NS AME*  NSA  ME  *LOA  0 

ROUTE 

279 

NPALTA  =  .NPALTA»LOAO 

ROUTE 

280 

283 

NS AME*NSAME*NPALTA 

ROUTE 

2  41 

GO  TO  1225. 226. 227.2261. UT»E 

ROUTE 

282 

225 

IFINPALTA.LT. NINLOIITTPEII  GO  TO  262 

ROUTE 

283 

GO  TO  260 

ROUTE 

286 

226 

IF  tNP ALTA. GE.nINLOlITY PEI  1  GO  TO  250 

ROUTE 

285 

2  8  5 

IF  INSANE. LT.HINLOIITTPEI  1  GO  TO  262 

ROUTE 

285 

100 


subroutine  rout, 

£  74/74  OPT*(l  SOUNO**/  TRACE 

ETN  W.btAfO 

1 ?/ 1 ?/8  0 

38. 07 

GC  TO  263 

route 

2  nr 

227 

IF  (NCjFF«LOOFF.  GE.NlNLO  (IT»PF»I  GO  TO  283 

route 

?nn 

IF  (NSAHE.GE.MI  NLQ(I  TYPEII  G3  TO  260 

ROUTE 

?8R 

IF  (NPALTA.  GE.MINLOI  I  TYPII  •  GO  TO  260 

ROUTE 

?9fl 

290 

z 

TR  V  TO  FJ  NO  NEAT  AREA  HIM  HI  N  LOAO  TO 

RE  NOTED 

ROUTE 

1 

262 

LSTSV  (LSTA.NEXT  A)  =  LS  TA 

ROUTE 

GO  TO  213 

ROUTE 

29  ? 

z 

BUILD  NEAT  PORTION  OF  SCHEDULE  BET  WEE  N 

AREAS 

ROUTE 

29U 

c 

LASTA  ANO  NtXTA  -  TRAOEL  T INE  =  TI  ME 

ROUTE 

299 

295 

z 

CONSIDER  ORDERS  WITH  LANE  ORIGIN  ANO  DESTINATION 

ROUTE 

29b 

z 

SAME  DESTINATION  -  J  IFFERE  NT  ORIGINS 

ROUTE 

297 

c 

DIFFERENT  ORIGINS  ANO  DESTINATIONS 

R  OUTE 

?9n 

z 

StLEGT  REST  SCHEDULE  SEGMENT  B»  NO  OF  PALLETS 

/  TIME 

ROUTE 

299 

z 

A  00  SEGMENT  TO  I JRRENf  2  EM  IDLE  SCHEDULE 

ROUTE 

•TOO 

303 

c 

UPDATE  LAST  AfitA  .LASTA,  ANO  LAST  WAREHOUSE 

YI SITED, LAST  W 

ROUTE 

301 

260 

TI  M£  =  T  (LASTA. LSTA.  ITTPEI 

ROUTE 

30? 

IF(IFILL.N£.O.ANO.L3AQ.Lr.MtNLO(IT»PEn 

SO  T 3 

393 

R  OUTE 

303 

TIMES*  TIME*T(LSTA,LPA.  ITTPEI  4STIMEUTRU 

OKI 

ROUTE 

3?* 

TIMES*TINES*STIME(  ITRUC<I  f  2,  •  L  TIME  (I TRUCO  *FL  OAT  (HINLO  (I  T  TP=  1  > 

ROUTE 

30*5 

335 

IF((TLEFT(ITRUC<l-TIMESI.LE.O.fll  GO  TO 

200 

ROUTE 

30  S 

TIMES*TIME»STIME(ITRUGlO  *  TINE*  TA.L  PA,  ITTPEI 

ROUTE 

30? 

TFIIFILL. NE.O. ANO. NSATE.EQ.NET  TAI  GO  TO 

395 

ROUTE 

303 

IF  <(T  LEFT  ( IT  RU  CO-TIME  SI  •  LE.  0.  01  GO  TO 

200 

ROUTE 

3  OR 

390 

TLFFT (ITRUCKI*  TL£FT(  ITRUCKI -TIKE 

ROUTE 

310 

313 

395 

lasta  =  lsta 

ROUTE 

311 

LAST  W=  LSTW 

ROUTE 

31? 

400 

TI M£=T (LAST  A. NEXTA. ITTPEI 

ROUTE 

313 

LSATf  =  LASTA 

ROUTE 

31 '4 

NSATF  =  NE*r  A 

ROUTE 

31S 

315 

GO  TO  (1000.203  0  .3330,300  3  1  .ITTPE 

ROUTE 

316 

0 

BUILO  SCHEDULES  FOR  STRAOQLES 

ROUTE 

317 

1000 

CALL  BUILDS  (IF  ILL.  IRCAP.  L  STORD.  NOELC 1 

ROUTE 

318 

IFdRCAP.ue.01  GO  T 3  4050 

route 

31R 

GO  TO  3031 

ROUTE 

3?0 

323 

z 

BUILO  SCHEDULES  FDR  TRANSPORTERS 

ROUTE 

3?1 

2000 

CALL  8LOTR(IFILL,IRCAP..5TOR01 

ROUTE 

3?? 

IF (IRCAP.LE.0I  GO  TO  4050 

ROUTE 

3?3 

GO  TD  3001 

n  jte 

3?U 

z 

BUILO  SCMEOUL6S  FDR  TRAIT  3  R  TRAILERS 

ROUTE 

3?3 

325 

3000 

CALL  RLOTRdFILL.tRCAP.LSTOROI 

ROUTE 

3?b 

IF  (LASTA. GT. 101  NOFF  =  NOrF-NPALTS 

ROUTE 

3  77 

IF  (IRCAP.LE.OI  GO  TO  4050 

ROUTE 

3?3 

3Q01 

IF(NPALTS.LE.GI  GO  TO  4303 

ROUTE 

3?R 

IF (HOD(IPASS,2l  . Nc. 0  I  53  TO  4050 

ROUTE 

3  3^ 

330 

DO  3302  11  =l«NOROR 

ROUTE 

3  31 

IF(INFC(II*.LE.01  GO  TO  3002 

ROUTE 

33? 

IFdAREAlIIl/lOO.GT.  101  GO  TO  3032 

ROUTE 

.3  33 

IFINSAVE.N£.IAR,EAdII/1331  GO  TO  3002 

ROUTE 

3  3A 

GO  TO  4053 

ROUTE 

336 

335 

3002 

CONTINUE 

ROUTE 

3.36 

LOAO*  LOAOvNPALTS 

ROUTE 

3  37 

IF  (NEXTA.  GT.IOI  LOOFF  =  L30FF*NPALTS 

ROUTE 

3  38 

IF  (LSATE.EO.NSATE)  GO  TO  4053 

ROUTE 

33Q 

LASTA*  LSAVE 

ROUTE 

3  AT 

3*0 

GO  TO  4000 

ROJTE 

7AI 

4050 

JF!LL=I43S(IFIlL> 

ROUTE 

3A? 

IF  (ITT PE, ED.  11  GO  TO  4050 

ROUTE 

1A3 

101 


subroutine  route 


7 4/74  OPT««  ROUTO*  •/  TRACE 


FT9  4.6*461 


1  ?/  12/SO  96.97.35 


IE  (JFILL.LT.3I  SO  TO  4050 

ROUTE 

344 

CALL  SRTOSKLSTORO.I  TYPE.JFILL  1 

ROUTE 

345 

I4i 

4060  IRCAP*C4PAC(  ITRJCKI 

ROUTE 

345 

1FILL*0 

ROUTE 

347 

LOAO*9 

ROUTE 

346 

LOOFF ■ o 

ROUTE 

349 

IF <TLEFT( I TRUCK*  .LE.  0. 01  SO  TO  200 

ROUTE 

359 

150 

IF  (NPRLTS.6r.0l  SO  TO  150 

ROUTE 

351 

LSTS9(LSAVE.NSAVE)*1 

ROUTE 

35? 

GO  TO  150 

ROUTE 

353 

4000  LA  5T4*  LS4  9E 

ROUTE 

354 

NPALTL  =  NPA  LTL-NPAL  TS 

ROUTE 

355 

555 

IF (NPALTS.LE.D 1  LSTSV (LSAVE«NSAVE)=1 

ROUTE 

356 

IF  (TLEFTd  TRUCK)  .LE.O.  0«  SO  TO  200 

ROUTE 

35? 

1FHP4SS.LT. 41  SO  TO  30) 

ROUTE 

353 

IF  (LSTSV1LSAVE  .NS4VEI.E).))  SO  TO  150 

ROUTE 

359 

IPASS=I  SPA  SS 

ROUTE 

369 

360 

GO  TO  300 

ROUTE 

361 

200  CONTINUE 

R  OUTE 

36? 

GO  TO  100 

ROUTE 

363 

C  CHECK  IF  OROERS  CAN  BE  AOOEO  TO  BEGINNING  OF  SCHEDULE 

ROUTE 

364 

9000  lFdCNTRL.NE.ll  GO  TO  9005 

ROUTE 

365 

365 

IF(NSPLIT.£Q.2I  GO  TO  9010 

ROUTE 

366 

9005  IF  (NSPL IT •  EQ .3  1  GO  TO  9010 

ROUTE 

367 

NSPLIT  =  NSPLIT*1 

ROUTE 

366 

GO  TO  50 

ROUTE 

369 

9010  IFdRESET.Nt.OI  RETURN 

ROUTE 

370 

3  70 

IRESET  =  1 

ROUTE 

371 

IC  KTWL  "0 

ROUTE 

3?? 

ISPASS  =  0 

ROUTE 

373 

NSFLIT= 1 

ROUTE 

374 

DO  9120  IIH.NOROR 

ROUTE 

375 

375 

IF  (INFO(II).LE.O)  GO  TO  9020 

ROUTE 

376 

GO  TO  50 

ROUTE 

377 

90  20  CONTINUE 

ROUTE 

376 

RETURN 

ROUTE 

379 

ENO 

ROUTE 

360 

102 


ROUTINE:  SRTDST 

ARGUMENTS: 

LSTORD  -  List  number  of  last  order  added  to  route  segment 

ITYPE  -  Vehicle  type  number 

JFILL  -  Number  of  orders  in  route  segment 

Description: 

SRTDST  re-orders  the  last  route  segment  for  a  given  vehicle.  Order 
destinations  are  re-arranged  to  allow  maximum  vehicle  utilization  with  a 
minimum  travel  time. 
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RETURN 


CUQ0 OUT  INF  SRTDST  73/74  OPT  =  0  ROUND**/  TRACE 

ETN  4.6*468 

12/12/88 

18.04 

1 

SUPPOUTTNF  SPTOST (L ST 0»0 , ITYPE , Jf ILL) 

SRTD 

2 

r 

SRTD 

3 

r 

SRTO 

4 

c< 

5 

Cl 

c 

SRTD 

6 

r 

'RTOST  SORTS  f  NT  R  Ir  $  IN  A  ROUTE  SEGMENT  BY  1 

DESTINATION 

SRTD 

7 

r 

warehouse  an n  groups  common  destination  on 

A 

SRTO 

6 

C 

FIOST  ON  -  LAST  oEP  BASIS 

SRTO 

* 

r 

SRTO 

10 

1  1 

C« 

11 

c 

SRTO 

12 

r 

SRTO 

13 

r 

tcr0op  -  l  APT  LIST  ^tRV  OF  ROUTE 

SEGMENT 

SRTO 

14 

c 

TTY P E  -  VEHICLE  TV>r 

SRTO 

IS 

1  * 

c 

JEILL  -  NUMBER  OP  ORDERS  IN  ROUTE 

SEGMMFNT 

SRTO 

16 

c 

SRTO 

17 

c 

SRTO 

15 

INTFGFR  ONUMB,WARE< 14 ) ,PTR»14) 

SRTO 

19 

COMMON 

SRTO 

28 

?,"♦ 

*/cCHFOL/  ONUmH (20  0) , INFO (200), TOE STPC200) , I AREA  1200) , 

SRTO 

21 

•  tFPWC<200)  .LRKHO^CO)  ,  IOUH1  400  >  ,OUM«  400  > 

SRTO 

22 

nC  1=1,14 

SRTO 

23 

WAPF(I)=P 

SRTO 

24 

?r 

PTRCI) =0 

SRTD 

25 

2  5 

c 

FIND  START  OF  SEGMFNT 

SRTO 

26 

ISTftPTsLPTORO 

SRTD 

27 

ICNTs  3 

SRTO 

20 

ion 

WARF ( JFXLL -ICnT) =HO0(IABSllNFOCISTART)> / 10  0 

,108) 

SRTO 

29 

PTP(JFILL-ICNT)=ISFART 

SRTO 

50 

IC  NT  =  T  CNT  ♦  1 

SRTO 

11 

IFIJFILL.NE.ICNT)  GO  TO  200 

SRTO 

32 

IFTPSTrTSTART 

SRTO 

33 

no  to  30c 

SRTO 

34 

20P 

IS7ART=l.nNM0(ISTAPT, 

SRTO 

35 

GO  TO  10C 

SRTO 

36 

c 

GROUP  LIKE  DESTINATIONS 

SRTO 

37 

c 

SOPT  OPPP*  SEC  ME  NT 

SRTO 

35 

■*on 

LIRIT=ICNT-1 

SRTO 

3*3 

1=1 

SRTO 

49 

U1 

35P 

JSTARTrT*! 

SRTO 

41 

Mr NT  =  0 

SRTD 

42 

CO  400  J=JSTART,ICNT 

SRTO 

43 

ir(HA?E(I>  •NE*WARC<J)  )  GO  TO  400 

SRTO 

44 

MC  NT=  MCNt ♦ 1 

SRTO 

45 

u<; 

IF  C  J.Ff).  JSTAPT*  GO  TO  400 

SRTO 

46 

IS AVr  =  HAPE  (I»MCNT> 

SRTD 

47 

JSAVE=PTR(I»MCNT) 

SRTO 

46 

MARE  (I*MCnT)=WARE ( J  > 

SRTD 

49 

PTRCI^MCNT) rPTp(  j) 

SRTO 

50 

pi 

WAPF( J) =TSAVF 

SRTD 

51 

PTR»J)=JSAVE 

SRTO 

52 

40  n 

CONTINUF 

SRTO 

53 

IF f  MCNT , FO , 0 )  1=1*1 

SRTO 

54 

i=  i ♦xe nt 

SRTO 

55 

c  c; 

IFfl.LE. LIMIT)  GO  to  350 

SRTO 

56 

r 

ADJUST  IINKFO  LISTS  POINTERS  WITH 

DELIVERY 

SEQUENCE 

SRTO 

57 

JCNT=ICNT-1 

SRTO 

58 
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SUBROUTINE  SRTOST  73/74  OPT*?  ROUNO*V  TROCE 


00  509  1*1?  JCNT 

LINK*PTR<I> 

lFRNOaiNK»*PTR<I*l> 

IFtI.GT.lt  LBKNO<LINKt*PTR(I-ll 
IOESTP<tTNKI*-I 
509  CONTINUE 

LINK*PTR<ICNT) 
IOESTP<LINK)*-ICNT 
tFRWO  tLlNK)*0 
LBKNO(LTNK)*PTR(ICNT-l» 

RETURN 

END 


12/12/00 

11.04. 

SRTO 

59 

SRTO 

01 

SRTO 

01 

SRTO 

02 

SRTO 

03 

SRTO 

00 

SRTO 

05 

SRTO 

00 

SRTO 

07 

SRTO 

00 

SRTO 

09 

SRTO 

70 
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ROUTINE:  T 


ARGUMENTS : 

IAREAO  -  Origin  area  number 
IAREAT  -  Destination  area  number 
K  -  Vehicle  type  number 


Description: 

T  computes  the  travel  time  between  two  areas,  IAREAO  and  IAREAT, 
for  a  vehicle  of  type  K.  If  IAREAO  equals  IAREAT,  T  is  set  equal  to  2 
minutes.  If  IAREAO  and  IAREAT  are  both  off  base  sites,  T  is  set  equal  to 
1000  minutes  to  prevent  travel  between  the  two  areas. 
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F  UK,  TX  ON  T 


7%/?o  OPT  »•  SOUND  ■•  /  THACt  Mn  0.  b**.Nn 


FUNCTION  T  <;  AfctAO.  1ARE  AT  ,*> 

!*IS  FUNCTION  OIVCS  TMI  T  SAVE  t  TI  *E  BETMEEN  POINTS  10  AND  IT 
F  OH  MUCK  TYPE  * 

TlNfS  ARE  STORED  IN  IN  I ANGUL  A  0  ARRAYS  Ml  IN  ZERO  ON  THE  0  I  AGON  AL 

ALPHA  MHMAN 

•••  CONNUMS  ••• 

C3HM0N/T INTAB/  TTlN£<J.4*l(TMN?(tl 
C  JHUnN/nHOUit  /  MHAANM?! 


NOR  UP  N  j  S  ?  9  i  CHANGED  lf  MAKE  HOUS  f  GROUPING  CHANGES 

Ni»«UP  ^  ifl 
A i AV “  *  * 

l  F  I  l(.  tO.  01  Ik-  \ 

If «I*RtAC.tU. I ARt ATI  GO  10  %S QC 

If  <IAR£ AG.GT. NCNJP.OM. iANf AT. GF.NC^UPI  GO  TO  SCUC 

F  INO  UN*  F  ON  SlTtS  IN  lffFFRfNT  AyE  AS 

L  s  N  In  0  (  I AR  £  A  0  . 1 A  At  AT  I 
M *  HA*  0  T  I  ARE  AO •  lARcAT) 

IFTL.EO.il  uO  10  iOOO 

N  -  L  -  l 
1  Sun  *  ■* 

03  /G0O  I*  -  1  .  N 

ISDN  *  I  SUN  ♦  (NGfcUP  -  1*1 

IL  *  I  SUN  -  L 

r -rriHE  u.iu 

go  ro  booo 

r  =  T  TiltU.H-  1 1 

GO  Tv*  fcn3  00 

r  =  ».t 
..u  tf‘  tooo 

FINO  TINE  FUN  SITES  In  >  AN  t  AREA 

T  =  ?  .  U 
Go  TO  6  j  00 

F  i  NO  TINE  FCR  OFfMASE  SIT*  S 

IMI4»t  AO.GT  .  NGRUF.ANO.  I«»EA  T  .GT.NuRUPI  GO  TO  SS10 
IFlK.Nt.JI  oO  13  5500 
Ns  N A*  0 (I ANE AG  .  I  ARE  AT  I 
N  s  N  -  NGRUP 
T  s  T  T  I  HZ  INI 

go  re  booo 

T  *  IOOJ.  PREVENTS  IRA  VEC  afTNEEN  OF  F  HA  SE  Si  Tf  S 

T  *10*  0 .0 
K  =  <SA  VE 
R  t  T  N 
t  NC 


1O/I7/0Q  10.04.17 
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ROUTINE:  TCARP 


SHHP 


Description: 

The  primary  purpose  of  TCARP  Is  to  translate  the  linked  lists 
notation  for  each  vehicle  In  service  Into  readable  schedules. 

When  the  bump  option  Is  set  for  a  special  order  run  (AVS2),  TCARP 
traces  through  each  vehicle's  schedule  to  determine  whether  the  vehicle  is 
suitable  to  move  special  orders.  Each  suitable  vehicle  Is  made  available 
for  the  special  order  run- 
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OCO  0*^00  o 


SUfMOU  T I  Nfc  TCARP 


OPT*0  ROUMO * •/  TRACE 


FTN  4.  6  *4b 0 


1 0/1  7/SO  10.04.1? 


► 


N/74 


1 


1  0 


1  5 


<?u 


25 


30 


Jb 


*•  U 


%5 


so 


5* 


SUBROUTINE  ICAAP 

TCARP 

2 

•TCARP 

3 

TCARP 

4 

letup  -  OcCOOES  SCHEDULE  S  FRCP  THE  LINKED 

LISTS 

TCARP 

5 

FOR  EACH  VEHICLE  USED 

TCAPP 

6 

IT  4  LSO  PRINTS  ALL  UNMOVED  ORDERS 

TCARP 

7 

TCAPP 

8 

•TCARP 

9 

TCARP 

10 

integer  onuhs.  iruck.pt  ior.pttrk.noest  i  is  * 

TCARP 

11 

integer  trksav.cafac 

TCARP 

1? 

ALPHA  NHMH.TYFE161.PR  IS12I.  IPRT 

TCARP 

1  3 

RtAL  LTIME 

TCARP 

14 

COMMON 

TCARP 

15 

•/UtN/  RTTIH.NI6L014I 

TCAPP 

16 

•/hsclns/  norm  ,ntrkS(ni.pttr<  ini 

TCARP 

ir 

•  /  S  A  Vc  P/  NSAVI6 1, TRKSAV16I 

TCARP 

18 

•/SPOTO/  ICNTRL  .SAVTIN.  ISORO 

TCARP 

19 

•/WHOUSE/  NHNAM92I 

TCARP 

20 

•  /SCHtOL/  ONUMB  <  20  at.  INFO!  2  001  .  IDE  STP I  2  00  *  . 

IAREA120C1  ,  LFRwnl?00>, 

TCARP 

21 

•  EBKND120  0  l,LCFNO(200l  .LCPNDI  200  1  ,  AT  INE  1  200  1  .  STOPT  1700  * 

TCARP 

22 

•/TRUCKS/  PTSOR  150  1 .  TRUCK  ( 5  0  1 ,  CA  PA  C  1  SO  t .  S  TI  HE  1501, LTINEI  501. 

TCARP 

23 

•  RTL  IN150I  .TLEFT150I  .NT 

TCARP 

26 

•/INOPT/  SHIFT. IDA  IE 

TCARP 

?5 

DATA  TTPE/2HST  .2HTR.2HTT,  >HIT/ 

TCARP 

26 

DATA  PRTS/bH  ,6H»S°Cl*  / 

TCARP 

27 

LIST  ALL  UnHCVEO  ORDERS 

TCARP 

20 

PRTSHF  =SMIf  T 

TCARP 

29 

SAVShFz  0 .0 

TCARP 

30 

I  P  C  OL  *  2  J 

TCARP 

31 

J  A  l  s7 

TCARP 

32 

OJ  100J 

TCARP 

33 

IMNTRKS1JJI.LE.QI  GO  T'j  1000 

TCARP 

34 

hstaft*ntrks«jj» 

TCARP 

35 

DJ  2300  Ul.HSTART 

TCARP 

36 

I  IROPTTRK  1  IJ  1  *1 

TCARP 

37 

IF  IPTSGR  1  ITHKI  .Lc  .  0)  00  TJ  2000 

TCARP 

38 

NPAL  IS  *0 

TCARP 

39 

1 SIOP*0 

TCARP 

60 

f  I  HE  -  0  •  ) 

TCARP 

41 

C 5  T  OP* I ®00t 

TCARP 

42 

I  A  1- JA  1 

TCARP 

43 

NUF l- 0 

TCARP 

44 

L  1M  -  PTSOR  l*TKM 

TCARP 

65 

L  NKSA  V*L  INK 

TCARP 

46 

DETERMINE  VtHlCLt  TYPE 

TCARP 

47 

I  T  fPf  *  1 

TCARP 

48 

IF  III  RK,  4T. PI  IBKl  2  1  1  I  I  TP  E  =  2 

TCARP 

49 

If  ( ITPK.GT.PT M>K<  III  irrP-=J 

TCARP 

so 

IF  1 ITRK  .r.T.PT  TR<  (  h  If  I  T»  P  fc  =«• 

TCARP 

51 

JUWl(»«0 

TCARP 

5? 

I TIH£*SHIFT 

TCAPP 

53 

IVEH-ITR  1-TRKSAV1ITYPE) 

TCARP 

5<* 

IF  ITAKSA  VI  IT  YPE  1.  t  I.  01  I  V€H  =  I  TRK-  PITRKI  I  TYPE  » 

TCARP 

55 

I  FI  ICNTRL. EO.  01  GO  TO  2010 

TCARP 

56 

I  PAT  =  PAT  S 1 1 > 

TCARP 

57 

WRITE  16,0021  T  YPE  I  ITYPtl  ,  IVEH  .SHIFT,  IOATE 

TCARP 

58 

I  1  1 


I 


k 


SUttROUflNfc  TCAR* 


7*/7*  OPT*0  ROUNO* •  /  T&ACF 


F  T N  4.  fa  *4bO 


1 0F1  7/  8  0  10-04.1? 


2010  lNFO<LlNK)=IAfcSU*FQ(LlNK)  I 
IFlICNTQl.Nt.O)  GC  TO  2014 

b  0  IF  < I  *  BS (  IOEiTP  (L  I  NX  )  )•  N£  .  I  )  GC  TO  2115 

IF  t  X  T  IH  .LT.  IF  IX  CSAVTIM)  I  GO  TO  2015 
C  CtcA*  WFHlCLt  SCHEOULE 

202?  InF0(LInk)=IA6S(1NF0(LINk)) 

IOESIP  (LINM  =  0 

fc5  LAST*  L6<M0(L  I  Mil 

L  FRWIM  la  sn  =  G 
L9**D(lINK>=Q 
STOP?  UINK)-0. C 
A  f  IHM  L  I  NKI  =  0  •  C 

7  0  l  INK  =LF ff*0  <  L  I  N  K  I 

IF  ILI  NK -GT  .Jl  GO  TO  2025 
C  UPOATE  f  IMF  Rc' PAINING  FOR  VEHICLE 

ISS*  SHIFT 

x  ShF T  -  1 ISS/ 130  >  *6  0 *HOO  ttSS*  10  0) 

7 5  TlEF=  (1  T  IME/1G Cl* 6 Q*HOO< ITIME  ,100» 

TLEFi RTT  IM-J T L tF- XSHFT  I 
TlEFT  (I TRK)=TLfcF 

GO  TO  2  0  05 

2Qi‘  L IN<> =l FRMOfL INK* 

6Q  If  til  NKS.GT.CI  GO  TO  2014 

IiS=SHIFT 

*SHFT= (ISS/ 10 G I *6Q*H0Q (ISS.10CI 
ISS*SA  VT IM 

TLEFT  ( ITRK)  =  ( ISS/  ICO) *EO*HOO(  ISSf 1001 
as  TLEFT  < it«ki=rttin-itleft iitr< i-xshfti 

2014  IF  CAT  iNt  (LINK).GT  -  TlMfcl  T  I  HE  =  A  T  IME  (  LI  N  K| 

IFTAT  Iht CLINK) .NE  .C.0I  GO  TO  2016 
IF TSAVSHF.NE. C.0)  GO  TO  2016 
SA  VSHF  =  SHIFT 

90  I  sS=  SH IF T 

X  SHF  T  = ( tSS/100 I *6  0  *MOD (I SS • 1 0 0  I 
SHI  F  T=  $  A  VT  IM 
ISS-SAVT  IM 

THt=  USS/10*)*  CO+NOO  (I  SS«  100) 

9  5  THE=T ME-  XSHFT 

IFITME.Le-TIMEI  GO  TO  2016 
I  A  1  =  ? 

TIHE=  THE 
20 1  fc  CONTINUE 

100  IORIGs  INFO(LINKI/1000Q 

IUEST=NOOI INFO IL INK) FI 00. 100) 
isize  =  HOO  C  INF  C  CLINK)  .  100) 

NP ALTS -HP ALTS* ISI ZE 
NOEL=NCEL* 1 

105  NOEST I  NOEL)  =  I OEST 

I  A  2= IAREACLINK 1/100 

IF ( IORIG  -  EQ.JCRIG)  GO  TO  4005 

A  T  IHE  (LlfcKMTU’EM  CIA1-IA2.ITTPE) 

T IHE= ATIME (LINK) 

no  itimesTcon\mt  ife*  prtshfi 

STAV=LT  IMECITPKI*  FLOAT  (ISIZE  I  *  ST  I  HE  (ITRK  1 
TIME=  TIHEASTA Y 
ISTAY=ST  AY*. 9 
I  STOP  a  IS  TOP*l 


TpAfiP  59 
TCAPP  60 
TCAPP  61 
TCAPP  62 
TCAPP  63 
TCAFP  64 
TCAPP  65 
TCAPP  66 
TCAPP  67 
TCAPP  68 
TCARP  69 
TCAPP  70 
TCARP  71 
TCAPP  7  2 
TCARP  73 
TCAPP  74 
TCAPP  75 
TCAPP  76 
TCAPP  77 
TCAPP  78 
TCAPP  -9 
TCARP  60 
TCARP  *1 
TCAPP  8? 
TCARP  83 
TCARP  84 
TCARP  85 
TCAPP  86 
TCARP  8? 
TCAPP  88 
TCAPP  89 
TCARP  90 
TCAPP  91 
TCARP  92 
TCARP  93 
TCARP  94 
TCARP  95 
TCARP  96 
TCARP  97 
TCARP  98 
TCAPP  99 
TCARP100 
TCAPP 101 
TCAPP 102 
TCARP 133 
TCAPP  104 
TCAPP105 
T  CARPI 0  6 
TCARP 107 
TCARP106 
TCAPPl 09 
TCAPP110 
TCAPPl 1 1 
TCAPP 112 
TCAPP113 
TCARP 114 
TCARP115 


} 

1 

i 

3 


114 


J 


SUdNOUTINE  T CAR?  7*/7*  OPT*fl  ROUNO«»7  TRACE  F  TN  4.6*460  10/17/60 


116 

iFucum.tu.  ot  gc  ro  ooao 

TCARP116 

NUN»l A 8S (ONUNfl  ILINKtl 

TCARP1 1 7 

I  FI  ONUMA  I  L INKI  .  G£«Q)  GO  TO  10  1 

T  CARP  1 18 

IPRT  =  PRTSI2I 

TCAPP119 

ifinuh.le.iooi  ipr t*6h*spcit 

T  CARPI  20 

12  1 

NUN=NOD(NUM.  ICO! 

TCARP121 

101 

MRIU  <6*6031  I  S  T  0  P  ,  MHN  AM  I 1 3  R I  61  ,ITINE  . 

ISIZE.NUM.ISTAY, IPRT 

TCARP122 

iprt=prtsiii 

TCARP123 

0000 

JORIG  =  IORIG 

TCARP124 

r,0  TO  AO  10 

TCARP12S 

125 

1*005 

SIAY=LTINEIITRKI  •FLOAT  (I SIZE! 

TCARP126 

I  STAY  =  ST  AY  *  .9 

TCARP127 

AT IM£  <L  INO  =  T I FE 

TCARP128 

TIKE=TINE*STAY 

TCARP1  2  9 

IF  lICNTRL.tU.  01  CC  TO  4010 

TCARP130 

ISO 

MUM  =  I  ABSIONUNB  ILI  NK1  1 

TCARP131 

IF  I0NUM9ILINK  1  .G£  .  0  1  GC  TO  132 

T CARPI  32 

I  PR  T=  PR  TSI  21 

TCARP133 

IFINUM.LE.  1J0  1  IPS  T»6H*SPLIT 

TCARP134 

NUM=MOOINUM,1GOI 

TCARP135 

1  35 

102 

MRITtlb.6051  ISIZE.NUM.ISTAY.  IPRT 

TCARPl  36 

ipRr=pRts(i» 

TCARP13T 

••oia 

JOcST* 0 

TCARPl  36 

Nt«T=  LFRNOILI  NX) 

TCARPl 39 

NKTSA  Y=NEXT 

TCARP140 

mu 

IF  In- XT.  L£.  0  1  CO  TO  2020 

T  CARP  141 

IFIIoESTFILINKI.EO.iOE  ST  PINEXTI)  GO  TO 

300  0 

TCARP142 

IFIITYFE.Ea.il  GO  TO  4000 

TCARPl 43 

IFIIOESTPILINKI.LT.IOESTPINEXTII  GO  TO 

3  20  C 

TCARP144 

GO  TO  5000 

TCARP145 

14  5 

A  00  0 

IF  IIJESTPILINXI  *G  T  «  IOfc  STPINEXT11  GO  TO 

3100 

TCARP14E 

5  000 

LiNKs  NEXT 

TCAPP14T 

LSTOPs IORIG 

T  CARPI  48 

I  A  1=  I  A2 

TCARPl 49 

GO  TO  2010 

T CARPI  50 

150 

c 

COMPUTE  TINE  ON c.  DESTINATION 

TCARP151 

3000 

IA2sMQCI  IARtAILINXl  ,  10  Cl 

TCARPl 52 

TIMEsTImE*T  IIA1.IA2.ITYPE  1 

TCARP153 

STOPT  ILINKMTIHE 

TCARPl 54 

IS  TOPS ISTOP*l 

TCARPl 55 

155 

ITIHF  sTCONWITINE.PRTSMFI 

TCARPl 56 

STAY=LIIME(ITRK1  ‘FLOAT  I  IS  I ZE 1  *ST  I  fit  1 ITRKI 

TCARPl  57 

TINE=TIME*STAY 

TCARPl  58 

ISTAY=sr AY*. 9 

TCARPl  59 

IFtlCNUL.EQ.u)  GO  TO  6001 

TCARP160 

lb  Q 

NUNsIAeS  CONUME  (LINX1I 

TCARPl 61 

IFI ONUHBIL1NKI  .GE.OI  GO  TO  103 

T CARPI  62 

IPRT=PRTSC21 

TCARP163 

IFINUM.LE. li)C>  IPRT=6M»SPLIT 

TCARPl  64 

NUNsNOOl NUN. 1001 

TCARPl  65 

165 

10  3 

MNITt  (6.6041  ISTOP.MHNAN  II0EST1.ITIME. 

ISIZE.NUM.ISTAY, IPRT 

TCAFP166 

IPRT s  PRTSI 1 1 

T CARPI  67 

(001 

J JEST  *  0 

TCARPl  68 

JORIG*  IOEST 

TCARPl 69 

LINK=NEXT 

TCARP170 

170 

L6KSA  VsNEXT 

TCARPl  71 

NOEL=0 

TCARPl 72 

10.04.  1? 
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79/79  CPT*0  SOLNn=»/  TRACE 


FTN  9. 6*960 


1  0/17/80  10.09.12 


SUBROUTINE 

T CARP  79/79  CPT*0  SOl*n*»/  TRACE  FTN  9.  6*960 

1 0/17/80 

I  A  Is  1 A2 

TCARP173 

1ST  OP*  IOEST 

T CARPI  79 

GO  TO  2010 

TCARP175 

175 

C 

FIRST  ON  -  FIRST  OFF 

TCARP176 

2(20 

IFlITTPE.Ea.il  GO  TO  3100 

T CARPI  77 

I  A  1SI  A  2 

TCARP1T8 

L  NASA  V=L INK 

TCARP179 

GO  TO  3210 

TCARP180 

ISO 

3100 

IF  (NOE  L.  EO.O  1  GO  TC  7000 

TCARP181 

00  6000  11=1. NOEL 

TCAPP182 

iot'sr=NOEsniii 

TCARP183 

I A2=  NOG  1 IARcA 1 LNKSAV 1 .1001 

TCARP1 89 

IS  126  =  POO  1 1  NFC  (LNKSAVl. 1001 

TCARP185 

185 

IFlJOESr.NE.ICESn  GO  TO  3105 

TCAPP186 

STOPTILNKSAVI  =  t  IN£ 

TCARP1 87 

STAV=LTIHE(ITfi*l*FLOAT  iisizei 

TCARP188 

UhE=  TIHE*StAY 

TCAPP189 

ISTAV=  ST  AT*. 9 

T  CARP  190 

150 

IF1ICNTRL.63.0I  GO  TO  3110 

TCARP191 

NUH= IASS  1 ONUN0 (LNKSAVl  ) 

TCARP192 

IF10  NUN9  (LNKSAVl  .  Gt.  01  GO  TO  109 

TCARP193 

IPRT=PRT5(2I 

TCARP199 

ifinum.le.  iooi  iprt=6h»split 

TCAPP195 

195 

109 

WRITE  16.60  7)  1  S  12  E  .  NUH  .1ST  AT.  IPRT 

T  CARP  1 9b 

iprt=prtsui 

TCARP197 

S3  TO  3110 

TCARP199 

310  5 

ISTOP=  ISTOPH 

T  CA  F  PI  99 

jDEST=ioesr 

TCARP200 

200 

T IH£  =  T IHE*T 1 1 A 1  •  I  A  2. ITTPE1 

T  CARP  20 1 

STCPT  (LNKSAVl  =  TINE 

TCARP202 

STAT  =  LT IKE  (IT*Kl»FLOAT (IS126I  *STIR£( itrki 

TCARP203 

tihe=time*stay 

TCARP2D9 

ISTAt  =  STAT*.9 

TCAPP205 

205 

IT  IHE=TCONV (STCPT (LNKSAVl  .PRTSHFI 

TCARP  20  6 

IFdCNTRI  ,EO.  01  GO  TO  3110 

TCARP207 

NU M=  I  A QS  1 0 NUH 6  (LNKSAV  1  1 

TCAPP  208 

IF  (0NUM9  (LNKSAVl  .GE.  01  GO  TO  105 

TCA  PP209 

IPRT=  PRTS(2 1 

TCARPZ10 

210 

IF(NUM.LE.100I  IPST=6H»SPLIT 

TCA  RP  2 1 1 

NUN=MOC( NUN. IOC  1 

TCARP212 

10  5 

WRITE  (t.,60  91  1ST  OF.  WHNAHI 1 05  S  Tl  ,1  TI ME  ,  I  SI Z £.  NUN ,1  STA  V  ,IPRT 

TCARP213 

I  PR  T  =  PR  TS(  11 

TCAPP214 

3  110 

I  A  1=  I  A2 

TCARP215 

215 

L NKSAV  =  LFPWO(  lkksavi 

TCAPP  21 6 

LSTOP= IOEST 

TCARP217 

6  000 

cominlf 

TCARP218 

N9EL  =  0 

TCAPP219 

IFIlNKSA  V.Ll.  01  GO  TO  7000 

TCAPP220 

22  0 

LINK=LNKSAV 

TCARP221 

JORI(.  =  IOEST 

TCA  RP2  2  2 

GO  TO  2010 

TCARP223 

C 

FIRCT  ON  -  LAST  CFF 

TCARP229 

3200 

LNKSAV  =  LflKNU(NEXTI 

TCAPPZ25 

225 

3210 

I  A?=MOD(I  AR£A(  LNKSAVl  .1001 

TCARP226 

ia£ST  =  MOO(INFO (LNKSAVl /Id 0.10  Cl 

TCARP227 

ISIZt  =  Mf)01  INFC  (LNKSAVl.  10  01 

TCAPP228 

IF  (JOEST  .NE.ICEST  1  GO  TO  3205 

TCARP229 
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GUdRJU  TINc.  T  CAR=» 


7*/74  CPT  =0  RCUNO=V  TRACE 


FTN  4.6*460 


ft 

2  3  Q 


235 


240 


2*#5 


250 


255 


260 


265 


27  Q 


275 


200 


265 


STOPT I LN  KS  A V) *  T  INE 

S  TAf  =  L  TIME  II  TRKI*  FLOAT  USt  ZE  I 

ISTAV=  sr  AY*. 9 

TlMt=TH£*STAY 

IF IICNTRL.EJ . Q I  GC  TO  3220 

NUH=I  A  as  IONUHB  (LNKSAVM 

IF  I  OKU H 9  CL  KK  S  A  V  )  .  G  t .  0)  GO  TO  10b 

IPkT=PRTSI21 

IF!  NUM.LE.1G  0)  IPR  T=6H*SPlIT 
NUH=HOO  I  NUH,  1  j  o  ) 

106  WRlTE(o,6fl7J  I  SI 7  £ , NUH , [ S T A Y ,  IPRT 
IPfcT^PRTSUI 

GO  TO  3220 
320  5  J0€ST  = IOEST 

ISTOP=ISTOP*l 

T  I  H£=  T I N£*  T  IIA  1  ,  I  A  2  •  I  TYPE! 

STOPTILNKSAV)  =  TIN  6 

STAV=LTIH£  IITRK)*FLOATIISIZEI  *STHclirRK> 

T IME=  T Ii E*ST  A  Y 
I  S  TA  V  =  ST  AY  ♦  .9 

ITtH£=TCCNVISTCPT  CLNKSAV)  ,  PR  T  SH  FI 
IFIICNTRL.EO. O  GO  TO  3220 
NUP= l A  63 CCNUHf  ILNKSAV) ) 

IF( ONUMBILNKSAVI .GE.CI  GO  TO  107 
I pfiT  =  PRT S  C 2 1 

IFINUM.Lt.  1001  IPPT  =  6H*SPLIT 
NJH=HOO<hUM* 100  I 

107  MRIThlb,  604)  ISTQP.WHNANIIDESTI ,ITiH£ , IS IZd, NUM, ISTAf ,IPRT 
IPRT=  PfiTSIll 

3220  I  A  1  =  1 A2 

L  S  T  OP=  IOEST 
NOEL  =NOcL- 1 
NcXT=LN<SAV 

IFCNIJEL.GT.ul  GO  TO  32C0 
IF (NXTSAY.Lc. 01  GC  TO  7000 
L I NK=  NX  TSA V 
LHKSm  V=NXTSAV 
JQRIG  =  I OtS  T 
GO  TO  2010 

C  ENO  ROUTE  FOR  VEHICLE 

7000  TINE=TIME*T«IAl,JAl,ITYPEI 
IT  IHF  =  T CON V  IT  I*-E  ,  FfiTSHFI 
IF  (ICNTRL.EQ.  Cl  GO  TO  2005 
RKIT-.  16,6061  NHNAHdPOOU  ,  IT  I  ¥  E  *N  PAL  T  S 
200  5  IF  ISAVSHF.Lc. 0. 0  I  GO  TO  2003 
SHIP  T=  34  VSHF 
SA  VSHF  =  0.0 
2000  CONTINUE 
1000  CONTINUE 

DO  9000  1=1 • NCRDR 
INFOIII =  IA  US ( INFO  II » I 
IFIIUE  STPIII.EC.O  >  GO  TO  9  000 
INFOI I)=-lNFOI I» 

9000  CONTINUE 

IF(IG NTRL.EQ. 0  I  RETURN 
MRire  f6,600i 
DO  9C0 1  1  =  1.  NCR  OR 


1  C/17/6Q  1C. 04.  1 ? 


TC4°P2  30 
TC4RP231 
TCAFP?  32 
TCAPP23 3 
TC4PP2  54 
TCAPP? 35 
TCAPP?  36 
TCAPP2  37 
TCAPP230 
T  CAP  P  2  3  9 
TC.A  0  F  2  4  3 
TCAPP24l 
TCA  PP  2 42 
TCAPP243 
TCAPP  ?4h 
TCAPP245 
TCAPP246 
TCAPP247 
TCAPP24d 
TCA  PP2 h9 
T  C ARP253 
TCARP251 
TCAC P?  52 
TCAPP253 
T  C  A  p  P  ?  5  * 
TCAPP?  5  5 
T  CAR  P  2  56 
TCAPP257 
TCAPP255 
TCAPP  259 
TCAPP260 
TCAPP  261 
TCA  R  P2  62 
TCARP2E3 
T CA  D  p  2  6  4 
TCA  P  P2  65 
T  C ARP?  66 
TCA  PP  2  67 
TCApp2ee 
TCAPP 269 
TCAPR2  73 
TCAPP  ?7l 
’’CARP?  7  2 
TCAPP?  73 
TCAPP2  74 
TCA  P  P?  T5 
TCARP?  76 
T C A  Pp ?  77 
TCA  RP?  T8 
TCAPP?  7° 
TCAPP2rt  0 
TCA  RP201 
TCARP? 3? 
TCAPP2R3 
TCAPP? 
TCACP?  56 
TCAPP286 
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SUBROUTINE  T  CAR5 


OPT  *0  ROLNO  =  »/  trace 


FTN  g.6*G60 


10/17/80  10.36.1? 


I  F(  I  KF  C<  I)  .LE  .  0  )  GC  TO  3  0  01  TCAPP287 

IU=IAHS(lNFO< I  11/  1COOO  TCARP288 

IT=MOO IIABSIINFOI It  1  /  100  ,  100  1  TCA  PP2  89 

isiZt-  =  imou»es  iinfciii  ).  1001  tcapp293 

RRITE(6,60H  C  NUN  E  (I  1  ,  ISIZE.MPNAM  1 101  ,  NHNA  M  IT  1  TCA  PP2  9 1 

1  CONTI  NOE  TCABP292 

RETJFN  TF.APP29S 

0  FORMA T ( 1M1 ,50 ( 1M* 1 /SX . 18H3R3E RS  NOT  NOVEO  /  1  X,  50  1 1  H»  I ///•  TCAP  P2  95 

1  FORMAT  (lX.bHURCER  .IG.2H.  ,I2,6HFROH  ,A6,gH  TO  ,  A  61  rr,AOP?95 

2  FORMAT t IH1///  20X.13H0ENICLE  -  ,42 ,I2/2QX, 1 2  H  ST4  R  T  TIME  -  ,  TCAPP  29E 

•  F5.E  /  20  X  ,  GHU  A  TE.9X.I6///1H0,  76  (1H-  1/6X,  GNSTOP,  2X.  gNS  ITE  ,3x.  GMT  jmE  ir.A»P297 
•5X.7HOELIVER,  7X.7FFICK  OP  .  5  X  .  5H0  R  OE  F,  3  X  ,  1  5H  S  T  A  r  TIME  (MINI  /  T CAPP2  90 

•  1  X  .  7b  <  1M -I /I  TCAPP299 

3  FORMA  T  (7X  ,  13,  IX  ,Afc  ,1X.  15 , 1.  7X  ,  I2,«H  PALLETS  «GX,I3«GX,  I5«1V,A>!  TCAFPSOO 

G  FORMAT  (7X, 13,  1X,AE,1X,I5,3X,  I  2  ,  gH  PALLETS  ,  18 1  ,  I  3  ,  GX  ,  15  ,  IX  .  A  6 1  T  CA  DP  3  0  1 

>  FURMAT<G0X,I2.0H  PALLETS  ,  GX  ,  I  3  ,  G  X  .  I  5  ,  IX  ,  A  E  I  rCAPP302 

b  FORMAT I//20X, 1 1MRCUTE  ENOEO  /20X,  10HLOCATI  ON  =  ,A6/  TCARP30 3 

•  2  OX  ,  6HT  IM£  =  ,  I5/2CX . 21HN0  OF  PALLETS  MOvEC  =.161  TCAPP30G 

I  FORMA  T  (26X,  12,  OH  PALLETS  ,  1 8  X  ,  I  3  ,  G  X,  15 , 1 X  ,  Ab  1  TF.APP305 

ENO  TCAPP306 


ROUTINE:  TCONV 


ARGUMENTS: 

A  -  Relative  time  In  minutes 
S  -  Start  of  work  shift  (24-hour  clock) 

Descript  Ion 

TCONV  adds  the  relative  time  to  the  start  time  of  the  shift.  The 
sum  Is  converted  to  24-hour  clock  time.  TCONV  is  then  set  equal  to  the 
result . 
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FUNCTION  TCCNtf 


7*/ 71.  OPT  *0  ROUND**/  TRACE 


f TN  4. 6*460 


10/17/00  10.06.1? 


FUNCT ION  T  CON V (A.S) 

THIS  FUNCTION  TARES  REAL  INPUTS  A  =  REL.  TINE  IN  HINUTFS 

ANO  S  =  START  OF  SHIFT  C?4  MR.  C.  OCR) 
AOOS  A  TO  S  ANO  OUTPUTS  THE  RESULT,  TCONtf ,  AS  ?4  HR.  CLCCR  Tt  NF 

ShS  =  FLOAT  (IFIX(S/1Q0.)> 

SHIN  =  S  -  SHR*1Q0. 

khf  =  float ( I F I  x  (  a/60.  >i 

XN  IN  =  A  -  X  HR  *60 . 

THIN  =  SHIN  ♦  XHIN 
YrlP  =  SHR  *  XH  F 
ICON/  =  100.»YFR  *  THIN 
IFTYMIN.LT. SO. I  RETURN 
TCONV  =  TCONtf  *  40. 

RETURN 

tNC 


TCONV  ? 
TCONtf  S 
TCONtf  4 
TCONtf  S 
TCONtf  6 
TCONtf  7 
TCONV  8 
TCONtf  9 
TCONV  10 
TCONtf  11 
TCONtf  1? 
TCONtf  1J 
TCONtf  14 
TCONtf  IS 
TCONtf  16 
TCONtf  1? 
TCONtf  18 
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APPENDIX  C 


-  AVSIN1 ,  A  SINR  COBOL  DRIVER  ROUTINE,  LISTINGS 


]  23 


.iw 


001030  IDENTIFICATION  OIVISION. 

■  01050  PROGRAM- III . 

M1G70  AVSIM. 

001090  AUTHOR. 

00111-0  ft  •  Me  L  T  ON 

•01130  INSTALLATION. 

0C11S0  OTNSftOC. 

0Q117  0  OATt-NRITTEN. 

001190  1*.  OEC  78. 

001210  DATc-COMPlLEO. 

001230  1<*  DEC  78. 

001250  SECURITY. 

001270  UNCLASS ITIfO. 

00129C  REMARKS. 

001310  COMBINED  INPUT-FRAME  PROGRAM  FOR  AVSl  AMO  AVS?. 

001330  £N v I ft ONMt N  T  DIVISION. 

001350  CONF ICUftAT ICN  ScCTION. 

00137  0  SOURCfc-CONPUTr. R. 

001390  *3500. 

OOimO  UflJEC  T-COMPUTc  R  . 

00 1A  30  33300. 

001050  INPUT-OUTPUT  StUHl/N. 

0C1F70  FILE-CCNTPOL. 

0Q1A9Q  SELc-CT  SOF  II  E  ASSIGN  TO  OISK 

001510  RESERVE  NO  wLTrftNATt  AReAS 

00153C  ACCESS  MCtc  IS  R  A  NO  CM 

001553  ACTUAL  key  IS  SPEILE-KEY. 

OOltlO  SEllCT  OS? I N  ASSIGN  TO  CISK 

00  If  3  0  RESERVE  1  ALTERNATE  A  Re  A . 

0  0 1 C  5  0  St.Lc.CT  VSJlM  ASSIGN  TC  OISK 

00 1 f  7  0  RESERVE  1  ALTERNATE  AREA. 

001E9G  DATA  OIVISICN. 

001710  FILE  SECTION. 

00  17  3  Q  EO  SQFILt  CCPY  SO F I Lr  . 

00175  0  01  A  VS-ftECO TO  . 

00177  0  03  AVS-PRfFl*  ejc  M ?Al  . 

001790  03  AVS-CATA  PIC  x<?8a». 

001810  01  INPUT-OATA. 

00  18 3 Q  03  FILLER  PIC 

001850  C  3  COMMON-PREFIX . 

001870  05  OCCIP  FIC  XXX. 

001890  05  FRANt-NR  EIC  x, 

001910  03  FILLER  PIC  XT28GI. 

001930  01  FRAME-1-InPUT. 

00 155  0  03  FILLER  PIC  x<2-l. 

00  197  0  03  FILLER  PIC  *  <  A>  . 

00  1  59  C  03  OROE  ft  OCCURS  ?  I  TIMS. 

002010  05  0-SI7E  FI(.  XX. 

002030  05  0-CFI&  Fie  xxxxxx. 

002050  05  3-nE>T  Pie,  x  (fc  i. 

002070  01  FftAME-2-lNPUT. 

002090  03  FILLER  PIC  XI2*», 

002110  03  FILLER  PIC  X < u l  . 

002130  03  TRUCK  OCCURS  30  TIMES. 
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Q0215C 
00217  0 
0021*0 
002210 
0022 3u 
0022?  0 
002270 
0022*0 
002010 
00*230 
002260 
00  237  0 
00  23*0 
0  0  20  0 
0  0  2h  3  j 
002030 
0  0  2*7  0 
0020*0 
00 26 1 C 
002*3  C 
002530 
00257  0 
0025*0 
002010 
002030 
00205  C 
002070 
0020*0 
002710 
002730 
0027*0 
002770 
0027*0 
002010 
002030 
002530 
002650 
00267  0 
002**0 
003010 
00303  j 
QC3C50 
003C7  0 
0030*0 
003110 
003130 
003150 
003170 
0031*0 
003210 
003230 
003250 
003270 
0032*0 
003310 


05  V-US-"  PIC  X. 

U 5  CAP  AC  PIC  X*. 

05  TlPt-LlM  PIC  XXX. 

C  3  FILLER  PIC  Ml  101. 

01  F  RAHt  -1-  HPUI, 

03  FILLER  PIC  x  I  2-.I  . 

03  FILLFR  PIC  M  <•  I  . 

03  I -DATE  PIC  Mil. 

03  START-riMt  FIC  «<*l. 

03  PAX -fi CUfL  PIC  XXX. 

03  FlLLft*  PIC  *  (  25  fe  I  . 

01  FRAMt-b-lMPuT. 

03  FILLtfi  PIC  xl 2-1  . 

0  3  FILLFR  PIC  M  4>  . 

03  M-  OP  T I  ON  PIC  X. 

03  P-OPTICN  FIC  X. 

03  FILLER  PIC  «  <  2601 . 

01  FRAPfc-7-lNFbI. 

03  FILLER  PIC  M  2ul. 

03  FILLER  PIC  x ( *1  . 

03  FLN-TYPF  PIC  X. 

C 3  STAFT-OATF  PIC  X({». 

03  h-OPT  ICN  P  In  x. 

03  FN  O-C A  T  £  PIC  X  (£1  . 

03  p-SHiFr  pic  x(-». 

03  TODAY -OATF  PIC  X(fc>. 

03  TOOAV-SFIFT  PIC  X  U>  . 

03  UPOAT£-R£CS  OCCURS  6  TIM^S. 

05  ORICH  PIC  X (61  . 

05  OESH  PIC  X(*l. 

05  SI7£h  PIC  XX. 

05  VE  hh  PIC  x ( h!  . 

0  5  EHFRh  pic  x. 

05  3  PL  Eh  PIC  X. 

03  FILLFR  PIC  x( l?2>  . 

FO  VS2IN  FILE  CONTAINS  20  er  1000  RECORDS 
RECCFD  CONTAINS  «Q  CHARACTERS 
DATA  »£  CCRfi  IS  CAPO- IMAGE. 

01  CARO-lMAGr  PIC  X<AQ>. 

FO  V  S3  IN  Flu  CONTAINS  Z<.  b  T  1000  RECORDS 
RECORD  CONTAINS  81  CHARACTERS 
OATA  RtCCPO  IS  CARC-IMAGt2. 

01  CARO-lHACt?  PIC  X(0O». 

PORK  ING- STORAGE  SECTION. 

77  PROGRAM-NAME  PIC  X(6»  VALUE  “AVSIN1~. 
77  ERR-CNT  FIC  ****  CCMP. 

77  CLAST  PIC  ****  COMP  VALUE  Zt ROES. 

77  JJ  PIC  66**  COUP  VALUE  7tROES. 

77  HIST-CHECK  PIC  X  VALUt  SPACE. 

77  STRAO-CAFAC.  PIC  XX  VALUE  "0  5”  • 

77  TRANS-CAFAC  FIC  XX  VALUt  "13“. 

77  TRAILER-CAPAC  PIC  XX  VALUE  ~1«*~ . 

77  MAX-CAPAC  PIC  xx. 

77  EMER-CHECK  PIC  X  VALUE  SPACE. 

77  SAME-REC  PIC  X  VALUE  SPACE. 
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003330 

77 

J-OSP  PIC  99. 

003350 

77 

J  PJC  9999  COMP. 

003370 

77 

M  PIC  95  COMF. 

003390 

77 

K  PIC  99  CCMF. 

003410 

77 

JLAST  PIC  99  COMF 

• 

003430 

77 

KLAST  PIC  99  COMP 

• 

003450 

77 

J-FCAS  PIC  i  COMF 

• 

003470 

77 

K-FLAG  FIC  9  CCMF 

• 

003490 

77 

GROERS-FLLL  FIC  c 

CCMF. 

003510 

77 

ONE  PIC  9  COMP  VAL 

UE  OH. 

003530 

77 

K CHECK  PIC  95  GO  FP 

» 

003550 

77 

flASE-NR  PIC  99. 

003570 

77 

TTPE-CT  PIC  59. 

00  3  59  0 

77 

TEST-NAFE  PIC  *  <  t 

\ 

• 

GO  3l 1 0 

77 

TRGCK-TTFE  pic  X» 

• 

0C3t3U 

77 

CPT  ICN  FIC  X  VFLL 

“2". 

00  3b5  0 

01 

SQSTOR  CCPx  SOSTOR 

• 

003E7  0 

01 

I—  WORK  —  ARE  A  COPY 

I 

STORE  . 

003E9  C 

01 

AVS1-EX6CJTE  PIC 

X 

(43) 

003710 

VALUE  “F.X  AYS  1 

CG  162904  .“. 

003730 

(il 

AVS2-E  XECUTt  PIC 

X 

(-0) 

003750 

VALUE  “EX  A  VS2 

CG  162504  .“. 

00  377  C 

01 

AVS3-EXFCUTE  PIC 

X 

(40)  VALUE 

00379  0 

“EX  A V S3  CG  162 

04 

003*10 

01 

TYPE-C  T-CSP. 

003830 

03  FIRST-DIG  PIC 

* 

• 

003*50 

03  StCONC-riiG  FIC 

9. 

003*70 

01 

OROEfi-STCRE. 

003*90  03  ORDER-OUTPUT  OCCURS  99  TIMES. 

003910  05  OUT-SIZE  PIC  *X. 

003930  05  OUT-ORIG  PIC  X(fc). 

003950  05  OUT-OEST  PIC  X<6). 

00  35  Z  0  01  TRUCK-STCRc. 

003990  03  TRUCK-OUTPUT  OCCURS  50  TIMES. 

00  3995  05  T RK-USE  PIC  X . 

004C10  05  TRUCK-NUM  PIC  XX. 

004030  05  TRUCK-CAPAC  PIC  XX. 

0  04  C  5  0  05  TRUCK-T  IME-lIF  FIC  XXX. 

004070  01  OPT-STORE. 

004090  03  M-OPTS  PIC  X. 

004110  03  P-OPTS  PIC  X. 

00  41 3  C  01  FRAME-l-CUTPCT. 

004150  03  LAST-OPO-PRGC  PIC  XX. 

00<*170  03  ERR-FIELU-1  OCCURS  10  TIMES. 

004190  05  OROER-NR  PIC  XX. 

00 42 1 Q  05  EXPLANATION-1  PIC  X(20>. 

004230  01  FRA ME -2- CUT PUT. 

004250  03  ERR-FIELO-2  OCCURS  8  TIMES. 

004270  05  V-NAME. 

004290  07  V-TYPE  FIC  XX. 

004310  07  V-NUM8  PIC  X. 

00*»3  3  0  05  EXPLANATION-2  PIC  X12Q). 

004350  03  LAST-TRUCK- FRCC. 

004370  05  LAST-TYPE  PIG  XX. 

004390  05  LAST-NUMB  PIC  X. 
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Q04.41C  01 

004*4,30 

00^,4,50 

oo<*<*?a 

004,4.91  01 
004*510 
00  h5  3  0 
0C<*55  C  01 
004*5?  0 
004*590 
00  4,6  10 
004,130  Cl 
004,65  0 
00  <*67  0 
004,19  0  01 
00«*?1  0 
004,  7  3  0 
0  0^75  C  01 
0  0  h  7  7  Q 
004.79  0 
004.010  01 
00  4,630 
004,650 
004,8?  0 
004,69  0 
004,510  01 
004,930 
004,590 
004.9?  0 
0  0  <*  5  90 
0C5C1C 
005  0  3  C 
Q05C5C  01 
005070 
0C5L9C 
00511b 
005130 
0  C  5  1 5  b 
0  0  5 1  /  u 
0  C  5  1  9  0 
00  521b 
005230  01 
00^25  u 
0052?  b 
00  52  9  C  01 
005210 
005330 
005350 
005370 
005250 
005010 
DO  54,3  u 
0  0505  0 
00  5070 
005t9b 


FRAME- J-OUTPUT. 

03  ERR-FIELO-J  OCCURS  6  TIMES. 
05  lNPUT-tRROH  PIC  *10). 

05  fcXFLANATIOR-3  PIC  X  ( 2  3  I  . 
FRANt-b-CUlPLT. 

03  OUT -X I X  PIC  X, 

CJ  OUT-CPTICR  PIC  X. 

FRAHE-7- OUTPUT, 


03  EkR-FIELO-4  OCCURS  a  TIMES. 

05  iNPUT-tPR  PIC  X<*1  . 

05  EXPLANATION--  PIC  XI19>. 
CPT-CASC. 

03  J-OPT  PJC  *. 

03  FILLER  PIC.  X<79»  VAlUE  SPACES. 
OATr-CARO. 

03  0-DATE  PIC  x (1)  . 

03  FILLER  PIC  x(7.)  VALUE  SPACES. 
SHIFT-CART. 

03  O-SHIFT  PIC  X(-»  VALUE  SPACES. 
03  FILLER  PIC  *<?nl  VALUE  SPACES. 
CPT-CARC-E. 

03  O-Mix  PIC  X  VAI.UF  "0“. 

C  3  FILLED  PIC  »  V  A  l  Ur.  SEACt. 


C  3  PkOPT  PIC  X  VALUE  **0“. 

03  FILLER  PTC  *<?'!  Vu.Ut  SPACES. 
QROc  R-CARfi. 


03  O-OSI  7t  P IC  xx. 

03  FILLER  PIC  x  VALUE  SPACE. 

03  G-ORIGIN  Pit  x<E  »  . 

03  FILLER  PIC  x  „4LUt  SPACE. 

03  O-OESTIN  P  It,  *(  M  . 

03  FILLER  PIC  xft-|  VAl Ut  SPACES. 


ORDE  A-  C  A  R  >-  c . 


03  O-TlMt  PIC  KUI. 


03  FILLER  PIC  xx  VALUc  SPAClS. 

03  O-SI 7  PIC  Xx. 

03  EILlcR  PIG  x  vALUc  SPACE. 

0  3  0-0 RICH  PIC  X  In  ). 

03  FILLER  PIC  X  VALUE  SPACE. 

C 3  O-TESTn  PIC  x  It-  >. 

b  3  EILLfR  PIC  *«iA»  VALCC  SPACES. 

tNO-CARC. 


03  C'f N  C-S  x  MHOl  PTC  XX  VALUE  “-1", 
b  3  FILLfc  PIC  x<?9»  VALUE  SPACES. 
TRUCK- HE  Anp a -CARL- R, 

G3  0-TRCCK-TITL.-.-9  PIb  X  I  6 )  VALUE 
03  FILLER  PIC  x  VALUE  SPACE. 

03  O-NUMB- SJS-4-  PIC  XX. 

03  FILLER  FIG  x  VALUE  SPACE. 

03  C-NUPF-TRS-x  PIC  XX. 

03  FILLER  PIC  x  VALUE  SPACE. 

03  O-  NU  Kfl-T  TS-t-  PTC  XX. 

03  filler  pic  x  value  space. 

0  3  O-ALI-LIR-A  PIC  XX  XX. 

0  3  FILLER  PIC  v  <  e  0  I  VAL  Ut  SPACES. 


TRUCKS". 


127 


006616 

01 

T RUCK -HE  406* -C ARC. 

005630 

03 

O-TRUCK- T  ITlE  pic  X ( 6 1  VALUE  “TRUCKS”. 

116660 

03 

FILLER  PIC  x  VALUE  SPACE. 

006676 

03 

o-Nuwe-srs  pic  x. 

006640 

03 

FILLER  PIC  >  VALUE  SPACE. 

006610 

03 

O-NUMfl-TrfS  PIC  X. 

00  66 i 0 

03 

FILLER  PIC  x  VALUt  SPACt. 

006660 

03 

C-KUWf-ITS  PIC  X. 

06667b 

03 

FILLER  PIC  »  VALUE  SPACE. 

0056*0 

03 

O-ALL-L  IM  PIC  XXXX. 

006716 

03 

FILLER  PIC  X»o0»  VALUt  SPACES. 

0  0  5  7  3  C 

01 

TRuC*-CARO. 

005735 

C  3 

T RK -  US:  “IT  PIC  X. 

0057:0 

03 

0-TSUL< -CCOt  EIC  XX. 

005770 

03 

FILLtR  PIC  x  VALUE  SPACt. 

005/4 j 

C3 

O-TRLCK-TIMp  EIC  XXX. 

005610 

03 

FILLER  PIC  x  VALUt  SPACE. 

00583* 

G  3 

0-TRUC< -CAPAC  PIC  XX. 

00583b 

G  3 

FILLtR  PIC  x  (  7  3  1  VALUt  SPACES. 

00587b 

Q  1 

FCN-2-SAVE. 

0058*3  0 

G  3 

FCN-?-FtOS  OCCURS  o  1  I MES . 

00:910 

05  0RIG5  PTC  X  <6J . 

005630 

J:  DcS  TS  P  IC  x  (6  1  . 

*0555  C 

0:  SI  76 5  FIC  x*. 

0  0:97  * 

05  VLMS  PIC  *<  *1  . 

005530 

J:  f Mr  RS  P 10  X  . 

OObC  1  0 

05  PPLFS  PIC  X  . 

01 

AV 

Sl-HEAC;  K-CArO. 

C  3 

FILLER  PIC  X(-il  VALUt  "  AV  SI 

0  3 

FILLER  PIC  *<751  VALUE  SPACES. 

01 

AV*2-Ht  AQt  R-CA-O. 

C  3 

FILLER  PIC  X<5»  v-LUt  ”  AVS2". 

C  3 

EILIER  PIC  X<’5>  VALUE  SPACES. 

0  Ob  0  3  o 

bl 

ECN-ALL-CARO. 

OCtC: 0 

03 

FCN  FIC  X. 

0  Ob  C  7  C 

03 

OATE1  PI*  X<6J  VALUE  SPACES. 

0  ObO  9b 

03 

0  AT  E  2  PIC  X  (  6  1  VALUE  SPACES. 

OObl  1  0 

0  3 

SHIFT-ALL  PIC  X(*l  VALUE  SPACES. 

00 b  1 3  * 

33 

OPTICE-H  FIC  X  VALUE  SPACE. 

006150 

03 

FILLtR  Pic  >1621  VALUt  SPACES. 

GQ617  0 

01 

FCN-2-CAfiC. 

OCE  19  C 

03 

DATE-SAVE  PIC  X<6». 

00621 0 

03 

SHIFT-SAVE  FIC  X  (  5  1  . 

00 1  2  3  C 

G  J 

FILLEP  PIC  >  VALUE  SPACE. 

0062:0 

C  3 

VcH- NC  PIC  X  <*  1  . 

0  0  6  2  7  0 

G  3 

ORIG-SAVt  PIC  X  <  6 1 • 

006290 

03 

ntST-SA  v  *  pic  x  (f,  i . 

006210 

0  3 

FILLtR  PIC  x(jl  VALUt  SPACES. 

60633* 

03 

SI/t-SAVt  PIC  XX. 

0C625C 

03 

thERG-SAVE  F IC  X, 

0  0  o  3  7  0 

03 

R PL t- SAVE  PIC  X . 

00 1 3  9  0 

03 

FILLER  PIC  x<*,|. 

006610 

01 

WAREHOUSE-,)  ATA. 

006*30 

C  3 

FILLER  PIC  Xtll*)  VALUE 

006*50 

“191  1 6  0  1 A  lr  011  1 1 C2  1633  16  06  160  5  1606 

1621 


1622 
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006470- 

%o  5  3C 

6*-E  69  M 

66E  66H 

67  E 

6  7W 

198 

• 

0  0  £  9  9  0 

03  FILLER 

PIC  X  <114) 

VALUE 

006510 

"1127  1130 

SP  2 

3  5 

8 

35 

4  3C 

44 

006530- 

“59  223 

1502  1903 

153  7  80 

177 

1 193 

1199 

M 

• 

006590 

03  FILLER 

PIC  UU.I 

VALUE 

006570 

“187  21o 

218  1313 

1169  1171 

1173 

1172 

1174 

X10 

00659  C- 

"193  22*. 

30  9  3S 

61  89 

20  2 

o96 

647 

•• 

• 

006610 

03  FI LL  FF 

PIC  X  ( 102) 

VALUE 

006630 

“656  1 

7  16 

23  26 

53S 

X  59 

ABASE 

N  MS 

00  1 6  5  0- 

“OEVTN  BRASH 

CS  N  NS  NPEOC 

1078  98 

655 

• 

006670 

03  FILLER  PIC 

X(5A)  VALUE 

006690 

"L  M 

N  P 

Q  R 

S 

T 

• 

006710  01  NAREHOUSE-NAPE.  RECEFINES  * ARE HOUS E-D AT A  . 

00 b  7  3  u  02  M-NAPE,  OCCURS  82  TIMES,  PIC  X(6>. 

0  G  E  7  5  C  01  PATCH-AREA  PIC  X6200). 

0C677  G  PROCEOURt  OIVISICN. 

0C  1 7  9  0  ulO-STAST-FfiCr.KAH  SECTION. 

OOfedlC  011-START. 

00o830  PERFORM  I- S  TART  . 

00  £  £  5  0  020-uPt.N-FIlE  SECTION  51. 

006070  021-OPEN. 

30689C  copr  socpin. 

006S1C  030-PRJCtSS  SECTION. 

CC653  0  031-  INIT  IALI7E. 

00  t  S  5  0  MOVE  ZERO  TO  JLAST. 

0  0  o97  0  MCVE  ZERC  TO  KLAST. 

00  £  5  9  0  MuVE  ZERO  FC  CRCERS-FULL. 

006595  PC  WE  ZERC  TC  LLAST. 

J07C1C  CRO-RcAO. 

007030  MOVE  ONE  TO  k  . 

007C5  0  MOVE  "GC“  TO  J-OSP  . 

007070  MCVF  SPACES  TO  FRA ME- 1- I NPUT . 

OC  7  09  0  MOVE  SPACES  TO  FRA  PE -2- I  NPUT  . 

00711  0  MOVt  SPACES  TO  FF A  PE  -  3- I NPUT . 

007130  MOVE  SPACES  TO  F R A ME-6- I NPUT . 

007150  MOVc.  SPAC6S  TO  FFA  7F-7-  INPUT  • 

007170  FERFQRM  SQREAO. 

0C719C  IF  FkAMF-nr  EQUALS  “1"  GC  TO  100-FRAME-l. 

007210  IF  FRAME-NR  EQUALS  “2"  GC  TO  200-FRAMF-2. 

007230  IF  FRAME-NK  EQUALS  ”3"  GO  TO  300-FRAME-3. 

00  725  0  IF  FRAME-NR  EQUALS  “V  GO  TO  400-OUTPUT. 

007270  IF  FRAME-NR  EQUALS  “5”  GC  TO  o OO-EMERGENCT-I NPU T . 

0C7290  IF  FRAMF-NR  EQUALS  "6”  GG  TO  5 99 -C LEA R- R EST APT . 

007310  IF  FRAME-NR  EQUALS  ”7”  GO  TO  730-HISTORV. 

00  7330  GO  TO  040-R-AC1. 

00  7360  10  0- FRA  ME- 1 . 

007370  IF  ORDERS-FULL  EQUALS  ONt  MOVE  "99”  TO  J-OSP 

007340  GQ  TC  1 2 0- L A  ST- CR DER . 

007910  PCVE  ZERC  TC  K-FLAG. 

007930  MOVE  ONF  TO  J. 

00795  0  MOVE  "01“  TO  J-QSP. 

007970  PCVE  ONE  TC  k. 

00  7  99  C  1 1  0-  N£  XT  -0  ROE  R. 

007510  MOVE  7ERO  To  J-FcAG. 

00  7530  IF  0-SI7E  «  J I  LOCALS  SPACES 
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007550  IF  O-CRIG  (J)  EQLALS  SPACES 

0C757C  IF  C-nEST  (J  >  EQUALS  SPACES 

007590  SUBTRACT  l  FROM  J-OSP 

007610  GO  7C  12G-LAST-0R0ER. 

007630  IF  0-SI7E  (J)  NOT  NUMERIC 

00  7650  IF  K-FLAG  EQUALS  CNE  GC  TO  120-L AST-OROER 

007670  ELSF  MCvE  J-PSF  TO  ORCER-NR  (K  ) 

007690  MOVE  "SIZE  NOT  NUMckIC  “  TO  EXPLANAT I CN-1  (K) 

007710  MOVE  ONE  TO  J-FLAG 

007730  AOO  ONE  TO  K 

007750  IF  K  GREATER  Than  10  MOVt  ONE  TO  K-FLAG. 

007770  MOVE  O-CRIG  <J»  TO  TtoT-NAMc. 

007790  PERFORM  5 0 J - Nfc He. - T£ S T . 

00 7b 1 C  IF  TEST-NAME  NOT  ECUAc  O- OR  16  (J) 

007830  IF  K-FLAF  FQUALS  CNE  GO  TO  12 0 -L AS T-OPQER 

0C785C  cLSE  MCVE  J-OSF  TO  ORCtR-NR  ( K  > 

00787  0  MOVE  "ORIGIN  MISMATCH"  TO  EXPLANATION-1  C  K  > 

007690  MOVE  CNF  TC  J-flAG 

007510  AOD  ONE  TO  K 

00  7530  IF  K  6  F  t.  A  TER  TUN  10  mCVE  ON  t  TO  K-FlAG. 

007550  MOVE  O-DEST  4 J I  TO  TEST-NAME. 

0  0  797  J  PERFORM  5 G 0 -NAM E -TEST. 

007590  IF'TEST-KANc  NOT  EQUAL  O-DEST  (J » 

008010  IF  K-FLAG  EQUALS  ONc  GO  TO  1 20 -LAST- ORDER 

006030  E L SE  MOVE  J-USP  TO  0R0tR-.9R  (K) 

0C8L6C  MOVE  “OrSTINATION  MISMATCH"  TO  EXPLAnATION-1  IK) 

008C70  MOVE  C Nr  TC  J-FLAG 

0C8C9J  AOU  ONE  TO  K 

008  1  1  G  IF  K  GFcATFR  THAN  1J  NCVE  ONE  TO  K-FLAG. 

008130  IF  J-FLAG  NOT  cQUAL  ONE 

008150  AOO  ONE  TO  JL A  ST 

008170  IF  JLAST  GREATER  THAN  59  MOVE  ONE  TO  OROERS-FULL 

008190  GO  TO  120-LAST- OfiQER 

008210  ELSE  MOVE  0-SI7E  (J)  TC  OUT-SIZE  (JLAST) 

008230  MOVE  C-ORIG  I J)  TC  GUT-ORIG  (JLAST) 

00825  0  MOVE  O-OEST  (J  )  TO  OUT-JEST  (JLAST). 

008270  AOU  ONE  TO  J  . 

00  8290  IF  J  GREATER  THAN  20  GO  TO  120 -L  AST-ORO  ER  . 

008310  ADO  1  TO  J-OSP. 

008330  GO  TO  1 10-NE *T -ORDER . 

008350  12Q-LAST-0R0ER. 

008370  MOVE  J-CSP  TC  LA ST-ORO-PROC . 

00829  0  MOVE  226  TO  SO F I LE-RECORO -3  IZE . 

008410  MOVE  15  TO  SCFILE-ROH. 

006430  150- WRITE. 

008450  COPY  SQHRIT  REPLAO ING  SQNRI TOD  1  BY  SQFI LE-PREFI X 

00847  0  SQHRI T  00  2  BY  FRA  ME- 1- OU TPU T. 

008*90  MOVE  SPACES  TO  FRAME- 1-OUT PUT. 

006510  GO  TO  040-READ. 

006530  200-  FRAME  -2  . 

008550  MOVt  ZERO  TO  K-FLAG. 

008570  MOVE  ONE  TO  J. 

008*50  MOVE  "01”  TO  J-OSP. 

0086 1 C  MOVE  ONF  TO  K. 

008630  MOVE  "ST"  TO  TRUCK-TYPE. 
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10865 0 
QG86ZG 
008690 
008710 
008730 
00  8  7b  0 
008770 
008  79  C 
008810 
00  8830 
0088b  0 
00887  0 
008890 
008910 
008930 
0089b  0 
00897  0 
008990 
0C9C1C 
009030 
009050 
009 C7C 
009090 
009110 
009130 
009150 
00917  C 
009190 
009210 
009230 
00925  C 
00927  0 
009290 
009210 
009330 
009250 
0  09  27  C 
009290 
009910 
009930 
00995  C 
009970 
00999  G 
009910 
009  5  3  C 
009950 
009570 
009990 
009610 
009630 
009650 
00967  0 
0C569C 
0CS71  0 
0  0  97  3  C 


MOVt  STfiAO-CAPAC  TO  MAX-CAPAC. 

210  - NEXT-TRUCK. 

MOVE  ZERC  TO  J-FLAG. 

IF  V-USE  IJI  EQUAL  “S“  HOVE  “S“  TO  SAME-REG 
MOVE  ZERO  TO  SECCNC-OIG 
GO  TO  230 -LAST -TRUCK. 

IF  V-USE  <J)  EQUALS  SPACES  GO  TO  220 -INCREMENT -  J. 

212- USE-TRUCK. 

IF  CAPAC  <J)  EQUALS  SPACES  MOVE  MAX-CAPAC 
TO  CAPAC  <JI. 

IF  CAPAC  IJ)  NOT  NUMERIC 

IF  K-FLAG  EQUALS  ONE  GO  TO  230-LAST-TRUCK 
ELSE  PERFORM  213-QISP-VEH-NUM 
MOVE  StCGNO-OIG  TO  V-NUM8  (K ) 

MCVE  TRUCK-TYPE  TO  V-TYPE  IK) 

MCVF  "CAPAC  NOT  NUMERIC"  TC  EXPLANATION-2  <K> 
MCVE  ONE  TO  J-FlAG 
A OO  CNE  IO  < 

IE  K  GREATER  TRAN  8  MCVE  ONE  TO  K-FLAG. 

IF  CAPAC  <JI  NUMERIC 

IF  C A  FAC  IJ>  GREATER  THAN  MAX-CAPAC 

IF  K-FLAG  rQUALS  QNc  GO  TO  2  30 -LA  ST- TRUC  K 
ELSE  PERFORM  2 1 3-OI SP -VEH- NUM 
MOVE  SECCNO-0IC  7C  V-NLH3  (K» 

MOVE  TRUCK-TYPE  TO  V-TYPE  ( K > 

MOVE  "CAPAC  TOO  LARGE"  TO  EX FL ANAT I  ON- 2  ( K 1 

MOVE  ONE  TO  J-FLAG 
6  O  C  CNF  TO  K 

IF  K  Gkc'ATcR  TEAR  8  MOVE  ONE  TO  K-FLAG. 

IF  TIME-LTM  (Jl  EQLALS  SPACES 
MCVE  "2“C “  TO  TIME -LIE  IJ). 

IF  TIME-LIM  (Jl  NOT  NUMEFIC 

IF  k-FLAG  cQuALS  ONE  GO  TO  230-LAST-TRUCK 
cLSE  PERFORM  213-UI SF-VcH-NUM 
MOVt  SECONO-OIG  TO  V-NJM&  (K» 

MOVE  TRUCK-TYPE  TC  V-TYPE  IK> 

MOVE  "  T I  Mu  NOT  NUMERIC”  TO  IX PL  ANA T ION-2  IK) 
MOVE  ONE  TO  J-FLAG 
AOO  CNE  TO  K 

IF  K  GRcATtR  THAN  8  MOVc  ONE  TO  K-FLAG. 

IF  J-FLAG  EQUALS  ONE  GO  TO  220-INCREMFNT-J, 

MOVE  ONE  TO  KChECK. 

213- niSP-VEH-NUM. 

MOVE  J-CSP  rc  GASF-NR. 

MOVE  J-CSP  TC  TYFE-CT. 

IF  J  GREATER  THAN  12  AQ  O  8  TO  BASF- NR 
SUBTRACT  12  FPCM  TYPt-CT. 

IF  J  GREATER  ThAN  18  AG  C  8  TO  BASE-NR 
SUBTRACT  o  FROM  TYP^-CT. 

MOVE  TYP6-CT  TO  TYPE-GT-OSP. 

215-CHECK-LIST. 

IF  KCHtCK  G^EATE*  THAN  KLAST  GO  TO  2l« - NE H- T FUC K. 

IF  TRUCK-NUN  ( K C E i : C K I  NCT  EQUAL  PASE-NR 
&QU  CNE  TO  KOHECK 
GO  TO  215-CHv.CK-LIST. 
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009750 
00977  0 
009790 
009810 
005830 
009850 
009870 
005890 
00989  2 
009899 
00  5896 
00  9898 
005510 
009930 
005550 
005570 
005590 
010C10 
010030 
010C5C 
010070 
010090 
010110 
010130 
010150 
0  1 0  1 7  C 
010190 
010210 
01023  C 
010250 
Q1Q27  0 
01C290 
010310 
010330 
010350 
010370 
010390 

01  0*4 10 

010030 
010050 
01007  0 
010090 
010*10 
010*30 
010550 
010570 
010590 
010510 
010530 
010550 
C  1 0  5  7  0 
0  1 0  t  9  j 
01071  0 
010730 
010750 


1 


MOVE  CAP AC  <J»  TC  TRUCK-CAPAC  (KCHECKI . 

MOVE  TINE-LIM  (Jl  TO  TRUCK-T IME-L IK  (KCHECK). 

GO  TO  220- INCREMENT- J. 

218-NEK-TRUCK. 

AOO  ONE  TO  KLAST. 

MOVE  BASE-NR  TO  TRUCK-NUM  (KL  A  ST  >• 

MOVE  CAPA C.  (Jl  TO  TRUCK-CAPAC  (KLAST). 

MOVE  TIME-LIM  (J)  TO  TR  LC  K -TIM  E-LI  M  (KLAST). 

IF  V-USE  IJ)  EQUALS 

MOVE  “10“  TO  TSUCK-CAPAC  (KLAST) 

MOVE  TO  TRK-LSt  (KLAST) 

ELSE  MO Vt  SPACE  TO  TRK-USE  (KLAST). 

220-  INCREME  FT- J . 

AOO  ONE  TO  J. 

AOO  L  TC  J-1SP. 

IF  J  GREATER  THAN  12 

MOVE  TRANS-CAPAO  TC  MAX-CAPAC 
MOVE  "TP"  TO  TRUCK-TYFt.. 

IF  J  GKFATER  ThA N  18 

MOVE  TRAILER- CAPAC  TO  MAX-CAPAC 
MOVE  “TT"  TO  TRUCK-TYPE. 

IF  J  GREATER  THAN  30  GO  TO  230 -L AS T- TR UC K . 

GO  TO  210-NE  xT-TRUCK. 

230-LAST-TRLCK. 

MOVE  TRUCK-TYPc  TO  LAST-TYPE. 

MOVE  SECONO-QIG  TO  LAST-NUMe. 

MOVE  191  TO  SOFILc-RtCORC-SIZE. 

MOVE  17  TO  SOFILl-ROM. 

250- MRITE. 

COPY  SOMRIT  REPLACING  SCMRITOCl  ET  SQFIlt-PREFIX 
SOM  R IT  0  J  2  PV  PRAMc-2-OUTPUT. 

MOVE  SPACrS  TO  F R A  ME -2- CL TPU T. 

GO  TO  OaC-READ. 

300- FRAMt-3 . 

MOVE  ONE  TO  K. 

IF  T-OATE  NCT  NUMERIC 

MOVE  “DATE"  TO  INPUT-cAROE  (K) 

MOVE  "NJT  NUM-RIC"  TO  E  XPL  ANAT  T  Cw  ?  (<) 

AOO  ONE  TO  K. 

IF  START-TIME  NOT  NUMERIC 

MOVE  "TIME"  TO  INPUT-ERROR  (K) 

MOVE  "NOT  NUMERIC"  TO  t XPL AN  A T I ON-3  (K) 

AOO  ONE  TO  K. 

IF  MAX-RCU  T  c  EOUALS  SPACES  MOVE  "2v00"  TO  MAX-ROUTE. 
IF  MAX-ECUTE  NCT  NUMtR.IC 
MOVE  “MX R T  "  TO  INPUT-ERROR  (K) 

MOVE  "NOT  NUMERIC"  TC  E XPL AN  AT  I  ON- 3  (K> 

AOO  CNF  TO  < . 

IF  K  EQUALS  CNt-  MOVE  I-CATE  TO  O-OATE 

MOVE  START-TIME  TO  O-SHIFT 

HGVr  OPTION  TO  O-OFT 

MOV*  MAX-R  CUTE  TC  C-ALL-LIM 

MOVE  "NO  ERRORS"  TC  h XP L A N AT IO N-3  (Kl. 

MOVt  9b  TO  aOFI L t -RECOR O-SI ZE. 

MCVt  11  TO  SCFILE-ROW. 
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010770  35Q-4RI  Tt. 

01079J  CCPY  SQPKIT  REPLACING  SChRITQOl  fY  SQF  I  1 E -PR  EFI  X 

01C81G  SQ RR  IT  J  J  2  HY  fdbh.-i-  OUTPUT. 

0  10  8  3  0  MOVE  SPACES  TO  F P A  ME -3- 0 U TPU T . 

010850  GO  TO  C40-FOAO. 

010870  600-tMEPGFNC Y-INPUT. 

010800  MOVc.  ”t"  TO  EMr.R  -CHECK. 

01C510  POOF  "0“  TO  M-OPTS. 

0109  3  0  IF  M-OPTION  EQUALS  ~Y“ 

010  5  5  3  MOVE  “1“  TO  P-OPTS . 

010570  MOVt  "0"  TO  F-UPTS. 

010550  IF  P-OPTION  EQUALS  ”Y“ 

011010  MOVc.  "1“  TO  P-UPTS. 

011C3C  h OVt  P-CPTS  T n  OUT-OPTIuN. 

011050  PG0£  M-OFTS  TO  OLT-MIY. 

011070  MOVc  9b  TO  S  0  FI  L  t  -  R£  Ctk  C- S I  Z£  . 

0  1  109  0  PC  OF  11  TO  SCFILc-ROW. 

01111C  650-PKITt. 

011130  COPY  SQPKIT  4  FPL  AGING  SO  WRIT  00  1  BY  S QF  I  L £-P REF  I  X 

ani50  sowkiro;2  gy  fra he-g -outpu t . 

011170  MOVc  SPACFG  TO  F R AMF -6- o U T PU T. 

011150  GO  TO  O-O-RcAD. 

011210  700-HISTORY. 

01123u  MOVE  "H"  TO  UST-OPF.CK 

011250  MOVE  FON-TYPt  TO  F  C  N 

0  1127  0  MO  OF  Z  tkOr.S  TO  t  RR-CNT . 

0  11290  IF  FCN-TYPF  EQUALS  “2“  GC  TO  7  5  0  -F 1J  NC  T I  O  N- 2 . 

011291  IF  FCN-TYPF  EQUAL",  “  1" 

0  1129  2  MOV  c  7 ERCS  TO  START-OATL 

011293  PCTc  ZECCS  TC  cNC-CATt 

011294  MOO E  ZEROS  TC  M-SHIFT. 

011310  IF  START-DATE  NOT  NUMtRIC 

011230  AOO  ONF  10  FRF-CNT 

0  1  1  27  0  IO  EXPLANATION--.  (EpR-CNT) 

01  1  39  0  MOVt  ERk-CNT  TO  INPUT-cRR  (£ RR-CNT »  . 

011410  IF  ENfl-CATF  NOT  NUMERIC 

G1143C  AOO  ONE  TO  E  R  R  -C TT 

011450  MOVE  “ENC  CATE  NOT  NUMERIC" 

01  149  0  MOVc  ERP-CNT  TC  iNFUT-t  RR  (ERR-CNT). 

011491  IF  START-DATE  NOT=  FNO-OATE 

011492  POVE  7t  R  C  TC  H-SPIFT. 

011510  IF  h-SHIFT  NOT  NUMERIC 

011  53  0  AOO  ONE  TO  F.FR-CNT 

011550  MOVE  "SHIFT  NOT  NUMERIC" 

011570  TC  FXFlANATIuN--  (ERR-CNT) 

011594  MOVE  ERR-CNT  TC  INPUT-t  RR  (ERR-CNT) 

OllfclO  GO  TO  7 99-OISPLA Y-FRRORS  . 

011E30  MOVE  STAST-OATR  TO  OATE1 

011E50  MOVE  ENO-OATE  TO  9ATE2 

011E70  MOVt  M-SFIFT  TO  SHIFT-ALL. 

011E90  IF  H- OP  T I  ON  EQUALS  “ V" 

011710  MOVE  ”1"  TC  GPTICN-H  ELSE 

011730  MOVE  ”0"  TO  OPTION-H. 

011750  GO  TO  799-DISPLA Y-ERRORS. 

011770  750- FUNCTION-2. 


Gil?**, 
011610 
GU83G 
011850 
01187  0 
0118*0 
011510 
011530 
011550 
0 1 1 5  7  0 
0115*0 
012010 
012030 

012  c*  a 

012055 
012070 
0120*0 
012110 
012115 
012130 
012150 
012170 
012  1*0 
012210 
0  1  2  2  3  0 
0 1 22  5  j 
012270 
012290 
012310 
012230 
01235  0 
012370 
012390 
012910 
012930 
012950 
012970 
01299  C 
012510 
012530 
012550 
01257  Q 
012590 
0 1  2  6  1  Q 
01263  0 
012650 
012670 
012690 
012710 
012730 
012750 
01277  0 
012790 
012810 
012630 


MOVf  ZtfiCES  TO  Jj 
KCl/c  7£KC-S  TO  Epi-’-CM. 

16  TOO  A  Y-n  AT  E  NOT  M/MeRIC 
A  OO  ON6  TO  £FR-CNT 

MOVF  **0m  T  i_  NOT  NUMERIC"  TO  £  X  PL  AN  A  T  I O  N -9  (ERR-CNT) 
MOVE  PK-  -C  N  T  TO  INPUT-tRR  (2RR-CNT). 

IF  TOOAY-SHIFT  NCT  NUMERIC 
AOO  ON£  TO  ERR-CNT 

MOVE  "SmIFT  NOT  NUMERIC"  TO  EXPLANATION-*  (ERR-CNT) 
MOVE  FfiR-CNT  TC  INFUT-tRR  (£RR-CNT>. 

IF  ERo-CKT  GREAT  E  x  THAN  ZERO  GO  TO  7 99- C ISPL AT- ERROR S. 
MCVr  TOCA»-OATr.  T  1  DATE  -SAVE 
HOVE  TOCAY- SHIFT  TC  ShlFT-SAVE. 

7H  0-  I  NOR  EM  c.N  T  . 

IF  LLAST  cUUALS  6  GC  TO  7  9 9 -DI SPL4 Y -ERR ORS  . 

AOO  ONE  TO  JJ. 

IE  JJ  G  R  £  A  T  £  F  THAN  6 

GO  TO  799-0 ISPLAY-cfiRCRS. 

IF  CKIGPU.il  EO  UAL'  SPACES  GO  TO  7  99-D  IS  PL  AY -ERRORS. 
HOVE  OKIGh  (JJ)  TO  TEST-NAME. 

PERFORM  503-NAME-TEST. 

IF  TtST-pAHc  NCT  EQUAL  ORIGP  (JJ) 

«no  ONE  TO  ERP-CNT 

MOVE  “'ORIGIN  MISMATCH**  TO  EXPLANATION-*  (ERR-CNT  i 
MOVE  JJ  TC  INPLT-ERR  (tRR-CNT). 

IF  ERR-CNT  cQUALS  6  GC  TC  7 99- OI SPL A Y-ERRORS  . 

HOVc  OESTh  (JJ)  TO  TEST-NAME. 

PcRFOPM  5  0  0  -  N  AME-T  E  S  T. 

IF  TEST-NAM;  not  equal  OESTH  CJJ) 

AOO  ONE  TO  ERR-r.NT 

MOVE  "OFST  MISMATCH-  TO  EXPLANATION-*  (ERR-CNT) 

MOVE  JJ  TO  INPUT -ERR  (ERR-CNT). 

IF  ERR-CNT  EQUALS  6  GO  TO  7 99 - OI SPL AY -ERRORS . 

IF  SIZcH  (JJ )  NOT  NUMERIC 
AOO  ONE  TO  ERR-CNT 

MOVE  "SIZc  NCT  NUMERIC"  TO  EXPLANATION-*  (ERR-CNT) 
MOVE  JJ  TO  INPCT-EnR  (ERR-CNT)  . 

IF  ERR-CNT  cCIJALS  6  GO  TO  79  9-  D I  SPL  A  Y-  E  RRORS  . 

IF  ERR-CNT  GREATER  THAN  ZERO 
GO  TO  7r0 -INCREMENT. 

AOO  ONE  TO  LLAST. 

MOVE  ORIGH  (JJ)  TO  0RIG5  (LLAST) 

MCVE  CESTP  (JJ  )  TC  OESTS  (LLAST) 

MOVE  S I7E  H  (JJ)  TO  SIZES  (LLAST) 

MCVE  VEHH  (JJI  TC  VEHS  (LLAST)  . 

IF  £  MF  R  H  (.(J  )  t  QL41S  “V  ~ 

MCVE  “l"  TC  EMERS  (LLAST)  ELSE 

MOVE  ~C"  TC  EMERS  (LLAST). 

IF  RPLEH  (JJI  EQUALS  “V“ 

MOVE  "l”  TC  hPlES  (LLAST)  ELSE 

MOVE  "0"  TC  KPLES  (LLAST). 

GO  TO  760-INCREMENT. 

799-CISPLAY -ERRORS. 

IF  ERP-CNT  EQUALS  ZEROES 

MOVE  “NO  ERRORS"  TC  EXPLANATION-*  (1) 
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01285 J 
012870 
012890 
012910 
01293  0 
012950 
012970 
012590 
013010 
0 1 30  30 
0 13 05  0 
013C7C 
013090 
013110 
013130 
013150 
013170 
013190 
013210 
013230 
013250 
01327  0 
013290 
013310 
013330 
013350 
01337  0 
013390 
013510 
013<«3  0 
013450 
01347  C 
013*90 
013510 
01353C 
013550 
013570 
0  1  3  £9  0 
013510 
013530 
013535 
0 1  3  5  5  C 
01357  0 
013590 
013710 
0137  30 
013750 
013770 
0 1 3  79  C 

013670 

013690 

013510 

013930 


MOVE  ZEROtS  10  I NPUT-5.fi R  <1». 

MOVE  225i  TO  SOFI  L  E  -R  ELORO-SIZE  . 

HOVE  16  TO  SQFILt-ROW. 

799- WRITE. 

COPY  SQNRIT  REPLACING  SQNRIT001  BY  SQFI LE-PREFI X 
SQWRIT0Q2  fl  Y  FRA  HE -7- CU TPUT. 

HOVE  SPACtS  TO  FRAME-7-CLTPUT. 

GO  TO  040-READ. 

400-CUTPUT  . 

IF  HIST-CHECK  EQUALS  “H“  GO  TO  4C0 -HISTORY-CARDS. 

IF  t HE fi-CHECK  NOT  EQUAL  “E"  GO  TC  4  0  0-OUTPUT-REGULAR. 
OPtN  OUTPUT  VS2IN. 

HCVE  ONE  TO  J. 

4 1 0- ORDER -OU  TPU  T-E. 

HOVE  O-SUfT  TO  O-TIME. 

HOVE  OUT-SIZE  <JI  TO  O-SIZ. 

HOVE  OUT-DRIG  (Jl  TO  O-ORIGN. 

HOVE  OUT-DEST  <JI  TO  G-DESTN. 

HOVE  O  RC£R -C ARD- £  TO  CARD-IMAGE. 

WRITE  C A RO-I MAGE . 

AOU  ONE  TO  J. 

IF  J  GREATER  THAN  JLAST  NEXT  SENTENCE 
ELSE  GO  TO  41G-OROER-OUTPUT-E. 

HOVE  END-CARD  TO  CARD-IMAGE. 

WklTt  C  A  KO - IMAGE  . 

HOVE  M-CFTS  TO  O-MIX. 

HOVE  P-OPTS  TO  PROFT. 

HCVE  OPT-CARC-t  TO  CARD-IMAGE. 

WRITE  CARO- IMAGE. 

MOVt  ZERO  TO  O-NUME-STS. 

MOVE  ZERO  TO  O-NCMB-TRS. 

MOVE  7£RO  TO  O-NUMB-TTS • 

IF  SAHE-REG  EQUALS  ~S” 

MOVE  "A"  TC  C-MJHB-STS. 

HOVE  TRUC<-HEAQEfi-CARO  TC  CARD-IHAGE. 

WRITE  CARD-IMAGE. 

IF  SAHE-REG  EQUALS  ~S" 

GO  TO  421-ENn-CwRr). 

MOVE  ONE  TO  J. 

420-TRUCK-OUTPU T-E. 

MOVt  TRK-USE  •  J )  TO  TRK-USt-IT 
HOVE  TRUCK-NUM  IJI  TC  O - T RUCK - CO CE . 

HCVE  TRLCK- T IMc-LlM  (J)  TO  O -T RUCK -T IME . 

HCVE  SPACtS  TO  O -TRUCK- C A  PA C. 

MOVE  TRLCK -CARE  TO  CARD-IMAGE. 

WRITE  CARD-IMAGE. 

ADD  ONc  TO  J. 

IF  J  GREATER  THAN  KLAST  GO  TO  421-ENO-CARD 
tLSE  GC  TO  4EQ-TRUCK- CUTPUT-E. 

4? 1- E  NO-CAR  C . 

CLOSE  VS  2 1  N  WITH  RELEASE. 

ZIP  AVS2  - EXECUTE, 

GC  TO  OhQ-R.AD. 

400-OUTPUT-REGULAP , 

OPtN  OUTPUT  VS? I N. 
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MOVE  OATE-CARO  TC  CARO-IMAGE. 

MRITE  CARO-IMAGE. 

MOVE  SHIFT-CARD  TO  CARO-IHAGE. 

MRITE  CAFO-IHAGE. 

HOVE  OPT-CARC  TO  CARC-IMAGE. 

MRITE  C A SO -IMAGE . 

0 1*090  HOVE  ONE  TO  J. 

014110  410-OROER-OUTPUT. 

014130  HCVE  OUT-SIZE  <J)  TO  O-OSIZc. 

014150  MOVE  OUT-ORIG  (Jl  TC  O-ORIGIN. 

014170  HOVE  OUT-OEST  (J  )  TO  O-OESTIN. 

MOVE  ORCER-CARO  TO  CARO-IHAGE. 

MRITE  CASH-IMAGE. 

014230  AOO  ONE  TO  J. 

014250  IF  J  GREATER  THAN  JL  AST  NEXT  SENTENCE 

01 42/0  ELSE  GC  TO  410 -OROER-OL TPUT. 

MOVE  ENC-CARO  TO  CARO-IMAGE. 

MRITE  C A  SO  - 1  MAGE  . 

014330  MOVE  ZEROES  TO  O-NUMB-S  T  S-R 

014350  MOVE  ZEROES  TO  0-NUM8-TRS-R 

014370  MOVE  7 ERCcS  TO  O-NUMB-TTS-R 

014340  MOVE  3-ALL-LIM  TO  C- ALL -L I M-R. 

MOVE  TRLCK-mEAOES-CASO-R  TO  CARO-IMAGE. 
MRITE  C  A  Ell  -  I M  AGE  . 

014450  MOVE  ONE  rc  J • 

01447  3  420-TRur.K-OUTPUT. 

014475  MOVt  TR  K-lISc  (Jl  TO  TRK-USE-IT  • 

014  4  4C  MGVC  TRUC<-NCM  (J)  TC  O-TRUCK-COOE. 

014*10  MGV  t  TRLCK-TIME-LIM  (J)  TO  O-T RUCK- T IME . 

0 1 4  5  J  C  MOVc  TRLCK-CAP4C  <J»  TO  C-TRUC K-CAPAC . 

MOVE  TRUCK-CARO  TO  CARO-IMAGE. 
wRITc  CARO-IMAGE. 

014*90  AOO  ONE  TO  J. 

Q14E10  IF  J  GREATER  Than  KLAST  NEXT  SENTENCE 

0 1 4  E  3  0  ELSt  GC  TO  4? C - TRUCK- CU TPUT . 

CLOSE  VS2IN  MITH  R  { LEAS t • 

ZIP  A  VS  2 -cX  tCUT  E  . 

014730  GO  TO  040-RtAO. 

01475  0  400-HSTOR  Y-CARUS. 

0  1  4  77  0  OPEN  OUT  FUT  VS3  I  N. 

014790  MOVE  FCN-ALL-CARO  TO  CARO-IMAGE2. 

014610  MRITE  C  A  Rfl  -  I  MAG  E  2  . 

014630  IF  FCN  NCT  ECUaL  ”2“ 

0 1hS5  0  GO  TO  4 10 -RUN- A V  S3  . 

0 1 467  Q  MOVt  ZEROES  TO  JJ. 

01469  0  405-  INCREMENT. 

014910  ADO  ONE  TO  J.l. 

014530  IF  JJ  GREATER  THAN  LLAS T 

014950  GO  TO  410-RUN- AVS3. 

014970  MOVE  ORIGS  (JJ)  TO  ORIG-SAVE 

0 1 4 S 9 v  MOVE  OESTS  (JJ)  TO  OEST-SAVE 

015010  MO VF  SI7ES  (JJ)  TO  SIZE-SAVE 

015 £30  MOVE  E  M  r  0  s  (J J  )  TC  EMERG-SAVE 

015050  MOVE  MFLES  (JJ)  TO  RPLt-SAVE. 

015070  MOVE  VEHS  (JJ)  TC  VEH-NO. 


015C9C  MOV!  FCN-2-CARD  10  CAR0-IMAGE2. 

015110  WRITE  CARD-IMAGE2. 

C15130  CC  TO  405-INCRr-HtNT. 

015150  hIG-RUN-AVST. 

0 15 17  Q  CLOSE  VS3IN  WITH  RELEASE. 

015190  ZIP  MVSJ-EXeCUTE  . 

015  210  f.0  TO  O^O-RtAO. 

015230  50 0 “NAM F-TE S T  SECTION. 

015250  510-START. 

01527  0  MOVE  ONE  TO  M • 

015290  52C-L IST-LOCF. 

015310  IF  TEST-NAME  EQUALS  W-NAME  CM)  GC  TO  530-EXIT. 

015330  ADO  ONE  TO  M. 

01535  0  IF  M  GRE  AT  t  R  THAN  8?  . 

015370  MOVE  SPACES  TO  TEST-NAME, 

01539  0  GO  TO  53a-F.XlT. 

015010  GO  TO  520-LIST -LOOP. 

01 5a 3 0  530-fXIT. 

0 1 5 A  5  0  EXIT. 

015*70  599-CLcAR-REST AST  SECTION. 

0 1 5a9 0  599-START. 

0 1 5  5 1 C  MOVE  SPACE  TO  SAME-RcG 

015530  MOVE  SPACe  TO  EiER-CHECK. 

01  555  0  MOVE  SPACE  TC  HIST-CMeSK. 

015570  MOVE  ONE  TO  J. 

015590  MCVE  ONE  TO  K. 

015591  MOVE  ONE  TO  JJ. 

C15592  598-LOOP. 

015593  MOVc  SPACES  TO  ORIGS(JJ» 

01559a  MCVE  SPACES  TO  OES  IS  C JJ  > 

01  5  59  5  MOVE  SPACES  TO  S 17  ESC  JJ  ) 

015596  MOVE  SPACES  TO  EMERSCJJ) 

019597  MOVc  SPACeS  TO  RPLESCJJ) 

015598  MOVe  SPACrS  TO  VEHSCJJ). 

015595  AOO  ONE  TO  JJ. 

0 156  0  Q  IP  JJ  GREATcR  THAR  6  GJ  TO  599-LCOP  ELSE  GO  TO  598-LOOP. 

Q15tl0  599-LOOP. 

0 15  e  3  0  IF  OROEft-OUTPUT  (  ))  NOT  EQUAL  SPACES 

3 1 5  E5  o  MOVE  SPACES  TO  ORDER-OUTPUT  (J ). 

015E70  AOO  ONE  TO  J. 

015E90  IF  J  GREATER  ThAN  99  GO  TO  0 31  - 1  NIT  I ALI ZE. 

015710  IF  K  GREATER  THAN  50  GO  TO  599-LCOP. 

015730  IF  TRUCK-O'TPUT  IK  I  NCT  EQUAL  SPACES 

015750  MCVE  SF«utS  TO  TRUCK-OUTPUT  (K>. 

015770  ACO  ONE  TO  K. 

015790  GO  TO  59S-LGCP. 

015810  CLOSE-FILE  SECTION  54. 

015830  05-CLOSE-IN, 

015850  COPY  SUCLIN. 

015870  G6-S0CL IN . 

01589  C  06-C LOSE -OUT. 

015910  GC  TO  I-EOJ. 

015530  CPEN-SUBR  SECTION  51. 

015950  C7-0PEN-SUBR . 

015970  COPY  IOPENR. 


137 


0159* & 
01601 0 
016C30 
0  16C5 C 
016C7G 
016C90 
016110 
016130 
01616  0 
016170 
016190 
01621 0 
01623  0 
01625  0 
0 162  7  C 
016290 
016210 
016230 
016350 
01o37  0 
016390 
016510 
016530 
0165a0 
01657  0 


BASfc -SURR  SECTIuN. 

08-REAO-SU8R. 

COPY  SQREP1  Rct-LACING  S  QR  c.  31 0  2  2  BY  0 5 -C L OSE -IN. 
09-MRITF-SUPfi. 

COPY  SQC6Y 1  REPLACING  Sf;CUTl02  2  PY  1 6-OU TPUT-ERR CR . 
SOCH-SUPR  StCTION  52. 

10- OCH- INPUT. 

COPY  SQPE02. 

11- OCR-CUTPU  1. 

COPY  SQOUT2. 

QURMY-PAKA  SECTICN. 

S0RE03. 

SOOUT3. 

CLOSF-SUBR  SECTICN  5h. 

15- CLOSE-SUPR. 

COPY  ICICSR. 
eRR-PROC  SECTION  55. 

16- OUTPUT-ERROR  . 

RCOE  “CUTPUT  E*RCR“  To  I  -  A80R  T  -HSr, . 

TRACE  2  C. 

GO  TO  I-A905T. 

COHMON-SUBR  SECTION  =9. 

17- CCPMCN-SL6-. 

COPY  ICCRCN. 
tNO- CF- JOB. 
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APPENDIX  D 


-  AVS  3,  HISTORY/UPDATE,  FLOWCHARTS  AND  LISTINGS 
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MAIN  PROGRAM 
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PROGRAM  iTAST 


?,/  7, 


lpt  =  o  rcunii=*  /  trace 


FIN  4.  6*uf»n 


10/1  5/80  12.  21.05 


=3 

1 


1 

IOtM 

A  VS3 

AVSJ 

7 

6 1  Zc 

lNlc<»£«  =  7 

AVS  3 

3 

SFGNtN  T  A  YSRO.  MR  GI  T  .MtRGE.CROn.RPLCt  .OTFND,  RPRT  .QMFIT 

A*  S3 

4* 

FlLr 

7  =SChE  01  .UNIT=  CISK. BLOCK.  NG=1  .KECOS.O=»0 

AVS3 

5 

9 

FILE 

A=uRGFl.  UNI  1  =  0  ISK  .BLOCKINGS.  RE  CORO*l  42<* 

A  VS  3 

6 

FILE 

4- TEMP. ON  11=0  ISK.  d  LOCK  ING*1.  RECOR  0=142*. 

AVS  3 

7 

FILE 

ll=PPNFl  E.UNII  =  OISK  .SLCCK  ING*  1 , RE  C ORO  =  1  ..24  .LOCK 

AVS  3 

A 

file 

12=AVIK.LNlT  =  CiS<  . BLOCKINGS,  RECORD**  0 

AV  S3 

9 

F  ILE 

3-WS.l  I  6.  UNIT  =  D ISK.  6LGCKINS  =  1  ,  RcCORO**  0 

A  VS  3 

10 

1  > 

S.AL  SHIFT 

A  VS  3 

11 

integer  oeye 

AVS  3 

1? 

logical  uPni.uPOTE 

AVS  3 

13 

Integer  oaTei  .catcE.func.opti on,da°ry  iioi.deoi 

A  VS  3 

14 

logical  ne nor 

AVS  3 

IS 

1  V 

LOFMON/GMkL/LFOI  .camrv.oe  vi.  oeve.upote 

AVS  3 

1ft 

Re  ADtS.lOOOIFLFC.CATEl .DA Tt  ?• INSHF.OPTION 

AVS  3 

IT 

1  OOO 

FJRM-T(I  1.21c. I  4.  Ill 

AVS3 

1 A 

SHIFT=FLCAT(INSMFI 

4v  S  .3 

19 

Gu  T  3  (10.  2  C.  30. 30  ,5.  5.  5, 5. 631  .  funC 

AVS  3 

?0 

Z  - 

5 

p.-.i.-.t  iioo 

AVS  3 

?1 

1 100 

F JnN.T  ("  INVALIO  CPTION-PROGRAM  TERMINATED"! 

A  VS  3 

?? 

STOP 

A  V  S  3 

23 

10 

N.  MO*-  *  a  F  . 

AVS  3 

?u 

If (OPTION. Nl. Cl  NImOR=.T. 

AV  S3 

?5 

C  9 

C..LL  AVSROINcRCR.  ICATE  .SHIFT! 

AVS  3 

?6 

C»LL  RPRT  (  IOATc  .1  DATE  .SHIFTI 

AVS  3 

27 

S  TCP 

AVS  3 

?n 

2  0 

CALL  CAIRO 

AVS  3 

?9 

S  IO“ 

A  VS  3 

30 

it 

30 

I  JATr  *OATE  1/  ICC 

A  VS  3 

31 

IT**  MQc( CA  Tel, 1001 

AV  S3 

3? 

fiyr=flo»T(Iyri 

AVS  3 

33 

F  OmTF.  *FlOAT  (IOATEI 

AVS  3 

3ft 

F 3Te1=FOATE*10G00 .*F ITS 

AVS3 

35 

ib 

OA  If  1  =  1  FI  X  (F II IE  1 1 

AVS  3 

3ft 

IUAT:  =OATE2/1CO 

AVS  3 

37 

itr=hoq(qatl2. ioai 

AV  S  3 

35 

fiyr=floatiiyri 

AVS  3 

39 

fjaTi =float (Idate i 

AVS  3 

40 

t 

fdTE1  =  FOATEf1000Q  .»FIYR 

AVS3 

ftl 

OATE?*IFIX  (FOTcll 

AVS  3 

ft? 

IF  ((1-TE2  ,EQ.  OIUATE2*OATE1 

AVS3 

<.3 

GJTO  <43. 4  0  .  •*  0  .  SOI  .FUNC 

AVS  3 

44 

«0 

call  MrGIT  (OA  TE  1 .0ATE2I 

AVS  3 

ft5 

4  9 

SHIFT  =  0. 

AV  S3 

46 

Call  kPRT(0ATe1,QATE2.  SHIFTI 

AVS  3 

47 

S  TOP 

A  VS3 

46 

3  0 

O.V1** 

AV  S  3 

49 

L  ALL  RPRT(0ATtl.0AT£2.  SHIFTI 

AV  S  3 

50 

9  v 

S  TOP 

AVS  3 

51 

60 

IF  (.NOT  .  (DATE  l.EQ.  S  999  99.  AND.  CATE  2.E0. 9  999  491 1  STOP 

AV  S3 

5? 

CALL  £  NT  F  ( 111 

AVS  3 

53 

PnInT  120 0 

AV  S  3 

54 

1  20  0 

FORMAT ("  FILE  OELETE3"l 

AVS  3 

55 

3  H 

eNO 

AVS  3 

56 
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* 


\ 

j 

1 
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I 
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SUBROUTINE  4  VSfcll 


74/7*. 


OPT  *C  RUU43  =  •  /  r  race 


FTN  4.64460 


10/15/60  12. 23.05 


1 

AVS  3 

57 

SUBROUTINE  AVS*a<N£WG«.IDArE.SHlFn 

A  VS  3 

54 

C 

ALPHA  MJHt  K  ICS 

AVS3 

5  4 

ALPHm  JJNK1 

AVS3 

60 

5 

alpha  0<IGN(2CL I . T  fc RNN (2001. TNA ME  150) 

A  V  S  3 

61 

•  ,  #Hh AM(92> 

AVS3 

6? 

c 

BINARY 

A  V  S  3 

63 

INTEGER  CNUMfl<ZOOI.FTSOR<5Ql.lERMO(ZOO>.LSIZ E ( Z 0 0  > , PS  PUL < 11 

A  V  S  3 

64 

c 

ALPHA  MhERlCS 

AVS  3 

65 

1  0 

ALPHA  NAME.IRK  .ORG.OfcST.  TIN*  £  4531  .TO  RIG  4  50  1, 

TOST  N  <50  I  .  INAME  <>  0  >  . 

AVS3 

66 

1  OR I G ( 50 1 .osr  N  (50  ) 

AVS  3 

67 

c 

BINARY 

A  VS  3 

63 

I  NT  EGER  YRMaUAfPAL.EMEftG,  TOTE  ,  TRE  GP  <5  ,1  1  ,  Ti  PAL  t  50  1  .  DA  T  E  . 

A  VS  3 

69 

1  R  lGP  <  5  ul  .EP4L  (SOI 

AVS3 

70 

1  5 

LOGICAL  UPOTt 

AVS3 

71 

INTEGER  IMAHR.  TNASK.  MARK.  3Z.  T  OZ 

AVS  3 

V> 

RcAL  SHE T,  ISHE T . T SHET 

A  V  S  3 

73 

integer  carry  not  .oeyi.oevz 

A  VS  3 

74 

LOGICAL  NEMOS. UPOT 

AVS  3 

75 

20 

laTcmNAL  OTENC  .MERGE 

AV  S3 

76 

C. JMM ON/A VSHC1/YRMCCA. PAL. EMERG. IE  T  N 

AVS  3 

77 

COHngn/amSmcZ/SHE  t 

A  V  S  3 

73 

COMMCN/AVSRCI/RANE.TRR.OR&.aEST 

AVS  3 

79 

C  OHM  ON  /T  MPRC  1/TOT  E  .TQ  2.T  MARK,  TREGP,  TE  PAL 

A  V  S3 

80 

2  6 

COMMCN/THPRLZ/  ISHET 

AV  S3 

61 

COMMON/TMPKC3/TINME.TOFIG.TOS  TN 

AVS  3 

6? 

CJMiON/HlSROl/OATc  .OZ.IMARR.RE&P,  EPAL 

A  VS  3 

6  3 

COMMCN/H  ISRCZ/  I  SHE  T 

AV  S  3 

64 

CGMMCN/HISRL3/ I  NAME ,ORIG, OSIN 

AVS  3 

65 

JO 

CGMMCN/CKTRL/UEOT .CARRY .DEY I , OEVZ ,U»DTE 

A  VS  3 

66 

DATA  TNAME  /  REST  1  .  -.HSTZ  ,  »«STJ  ,  aHSTm  , 

AMSTS  . 

AVS  3 

67 

•  ^hste  ,  mmstt  ,  ^hsti  ,  4HST9  . 

AHST  U  , 

AVS  3 

68 

♦  AHsTU.  AHST1Z,  AHSTlJ,  4HST1A, 

AHSTJ5, 

A  VS  3 

69 

•  *•  HST  16*  4HST1Z,  mHSTU,  mHST19. 

AHSTZO. 

A  V  S  3 

93 

J  5 

•  4hT«.i  .  aHTRZ  ,  4HTR5  ,  AHTRm  , 

AHTR5  . 

AVS3 

91 

•  METRE  .  4HTR7  ,  *HTR8  ,  4HTR9  . 

AHTR10  f 

AVS  3 

97 

•  mhTTI  ,  AHTTZ  ,  AM  TT  3  ,  AHTT*  , 

4MTT5  . 

A  V  S  3 

93 

•  aHTTE  .  4HT  T  7  ,  AH  TT  5  ,  4MTT9  . 

AHT  T  10. 

AV  S3 

qu 

•  A  H I  T  It  AIK  ZfAMIT  3  *  A  H  I  T  A.mMIT  5f 

AVS  3 

96 

4  0 

♦  AHI  T  &  f  A  Hi  T  ZfAMIT  S.aHIT  9tAHIT10  / 

AV  S  3 

96 

Oc.  ¥1  =  6 

A  VS  3 

97 

UPOT=  #F  . 

A  V  S  3 

96 

c 

f*  AO  DATA  FROM  A  VS  SHtOl 

AVS  3 

99 

R-_A3  (  7 , 16001  NWA«t.(JUN<*  1=1*16  1*  <WHNAH(I>  .1 

=  1  .NHAS?  ) 

AVS  3 

100 

O  *5 

1  60  0  FORMAT  (1016/716  /  (IX*  10  A6I  1 

A  V  S3 

101 

DO  1001  1=1. 2  0  C 

AVS  3 

1  0  7 

REAG (T ,10001  CRUid (11 f INE  O  #I  OESTP  t i  AR  t  A,LF  RMD  ( I) 

AVS  3 

103 

1000  FOhMmT ( 516. JbX) 

AVS  3 

1  C  4 

IF(ONUMB(I ).£C.O  )  GO  TG  1001 

A  VS3 

105 

V  g 

ICH<  =  1 

AVS  3 

106 

IF(INFO.GT.O)  ICHK=-1 

A  V  S  3 

i  07 

I  NF  0=  IAHS4  INFO  ) 

A  VS  3 

106 

I p t r  =  mgo (Info/ loo. ioo) 

AVS  3 

109 

Tc  RMN  (  I)  =  WHNA  M  ( If»  T«> 

AVS  3 

1  1  0 

5  5 

IPTR= I  NFC/ 10CCC 

AVS  3 

1 1 1 

OR  I&K ( I 1 =MHNAM  (IP  1R ) 

AV  S  3 

11? 

LSI7r  ( II  =MOU (INFO  .  100 )*ICH< 

A  VS  3 

1  1  3 

147 


r 


SUB»OJ  H  N£ 

>V SRO  7-./T*.  OPT ■  fl  ROUND**/  TRACE 

FTN  4, b*4bO 

10/1 6/60 

12.23 

1001  CONTINUE 

AVS  3 

lit* 

RfcADtT.UOO)  (PTSOR*  I>  .1* 1 .50  ) 

A  VS  3 

115 

60 

1 100  FORMAT  (I  A.  HOI  1 

AVS  3 

116 

Rc AO (7.1 750)  «F JUNO. I»l.  1411 

AVS3 

117 

1750  FORMAT  I3fb.lt 

AVS  3 

1 1  A 

R  e  AO  *  7  «  1*0  01  1  JUNK.  I«l,  101 

AVS3 

119 

1000  FORMA  T  *418/4  18/218) 

AVS3 

120 

66 

Rt  AO  *7,1300  1  SEFT.IOATE 

AVS  3 

121 

1  300  FORMAT  |Ffa.  1,  1*1 

AV  S3 

122 

RtAO*7, 14001  MAR< 

AVS  3 

123 

1  400  FORMAT  (Ifcl 

AVS  3 

12* 

c  organize  oata  in  format  oate, truckname, origin: 

OESTINAT  I0N.L0GSI7- 

AVS3 

125 

7  C 

C  EMERGENCY  *  =  l  EMERGENCY. *0  REGULAR  1 

AVS  3 

126 

IVR=mOC*IOAT£.  100 1 

AVS3 

127 

IOATE2  =  IOATe/1CO 

AVS  3 

12  A 

F  IYR=  F  L  0  AT  *iyri 

AVS3 

129 

FJATe=FLCAT*I0AT£2I 

AV  S3 

130 

76 

FDTE2=FDAT  t*  1U00.»FITR 

A  V  S3 

131 

I OATe*  IFIX*F0T£Z1 

AVS  3 

13? 

Y  RMOO  A=I  DATt. 

AVS  3 

133 

CALL  OTFNOIIOATE, SMFT.NARKI 

AVS  3 

13* 

00  2JQ  1=1.50 

AVS  3 

135 

a  c 

NAME  =  T  NA  ME  *11 

AVS  3 

136 

IF  (PTSOR  *1  1  .£0 .01  GO  TO  ZOO 

AV  S3 

137 

C  GET  FIRST  ELENeNT  IN  CHAIN 

AVS  3 

136 

IPfRi PTSOR *11 

AVS  3 

139 

Zfl  ORG=ORIGn*IPTR) 

AV  S  3 

140 

66 

OeST=TeRPN<IPTR> 

AVS  3 

1*1 

p-l=lsize*iptri 

AV  S  3 

1*? 

EMERG  =  0 

AVS3 

143 

IFIONUMH  (IPTRt  .E3 .599IG0T0  185 

AVS  3 

144 

IF«OnUMR«IPTRI.L£.C1  EMERGsI 

AV*3 

145 

90 

C  CALL  OPOA TING  ROUTINE-VARIABLES  PASSED  THROUGH 

AVSRCI  IN  COMMON) 

A  V  S3 

146 

CALL  UPDATE 

AVS3 

147 

185  IpTR=  lF  =  wQ*IPTM 

AVS  3 

146 

IFdPTR.NE.Al  C010  20 

A  V  S3 

149 

2  JO  C  OM  1  NUi 

AVS  3 

15^ 

96 

IF*. NOT.  NrWURI  GOTO  30 

AVS  3 

151 

M  R  I  T e  *  b  .  30  1  u  » 

AV  S  3 

152 

3010  FORMAT  *1  Pi,"  THE  FOLLOWING  UN  CEL  I VEREO  ORDERS  RILL  BE  INCLUDFO". 

AVS  3 

153 

l/,"  in  the  input  fcr  tee  neat  avs  run-* 

AV  S  3 

154 

RnITe  *b,  2015) 

A  V  S3 

155 

10  0 

3015  format*//.  1H  ."ORDER  NO", 2*. 'LOT  SIZE", 4*. 

"T  0"  ) 

A  V  S3 

1  56 

I C  H<  =  0 

A  V  S  3 

157 

no  250  IPTR=1.2J0 

A  VS  3 

156 

IF ( LSIZt (IPTRI . GE. 0)  GO  TO  250 

AVS  3 

159 

IGHK=  1 

AVS  3 

16T 

10  6 

L  j  I/f  (  IP  TRI  =  IA8S  *LS  IZE  IIP  TR1  1 

AVS  3 

161 

IF ( ISHFT .EO.fl .0 1  CO  TO  25 

AV  S3 

16? 

IF (ONUMD < IPTR) .E0.999)  GO  TO  25 

AVS  3 

163 

EmeR  G=  u 

A  V  S  3 

16U 

IFI0NUM9 (IPTRI .LT.O)  EMERG  =  l 

AVS  3 

165 

110 

name=4HZ7ZZ 

AVS  3 

166 

0 RG=  OR  IGA*  IPTR  1 

AVS  3 

167 

DeST  =  T  eRMN (IPTR) 

A  V  S  3 

166 

PAl=LSI7E* IPTR) 

A  VS3 

169 

CALL  UFO  ATE 

AVS  3 

1 '  T 

148 


SUBSOuTINl  ARSIO 


7n/74 


CPT  =  0  ROLNQ«»/  TRAC  £ 


FTN  4.  6*460 


10/15/80  12.73.05 


115 

?  5 

WRIT  M  12.  3  0  00  1  CNUNB  (IP  TR)  .LSI  2£  <  I PT  R)  ,ORIG  M  IPTR)  .TiRHMIPTR  1 

AV  S  3 

17  t 

3000 

FORMAT  <215. 2AE) 

ARS  3 

172 

HR  I  r  cC  6.  30  Op  I  ONUM  8(  IPTR*  .LSIZE  <  IPTR)  .OR1GN  <IPT  R )  ,  TERMN  IIPTR) 

ARS3 

173 

3005 

FQRMAT<1M  ,15  .Sx  ,  15  .bX  .Ab  ,2X,  Ab  > 

ARS3 

174 

250 

C  JXT INUE 

ARS3 

175 

12  o 

IFULMK.EO.Q)  CO  TO  28 

ARS  3 

176 

G  C TO  30 

ARS3 

177 

2a 

Hr  IT  £  1  b.  30201 

ARS  3 

17ft 

3  02  0 

FORMAT!-  all  OROtRS  SCHEDULE!  FOR  DELIVERY") 

AR  S3 

179 

C  ENO 

A VS  INPUT 

AVS  3 

160 

12 

30 

RlHINO  'lEYl 

AR  S  3 

161 

Shift  =  ishf  t 

AR  S  3 

IS? 

35 

RlATHOERI.  1500  .EMC*  100)  TOTE.  T02.T  SHF  t  , TMARK.  TI  FINE  .tor  ig.  TOSTM. 

ARS  3 

163 

1  TfitGP.TtPAL 

ARS  3 

1  64 

1500 

FORMA  T(2I6.Fb.l.Ic.5C  A  a,  1O0A6.100  lo) 

AR  S3 

165 

1  Si 

IFCTDTE.EO. j)  GOTO  100 

ARS  3 

166 

IF (TOTE. GT. DATE 1GOTO  80 

AR  S  3 

167 

IF(IuTc.EQ.UAU)  GOTO  40 

ARS  3 

166 

3d 

hkITc  <  U .150G) CATE  .02  .  I SHFT  ,  I  PARK ,  I  NAME .  OR  IG.  DSTN,  RES  P.EPAL 

ARS  3 

169 

MRITE  <11.1500)  TOTE.  TD2.TSMFT.  TMARK.TINME,  TOR  IG.TOSTN,  TREGF.T  FPAL 

ARS  3 

1  90 

1  J  5 

U A  TE=  0 

AR  S  3 

191 

GOTO  35 

ARS3 

19? 

hO 

IF (TDTt.EQ.TDEIGOTO  50 

ARS  3 

19  3 

HRITt!  1  1  .  1500)  OAT  E  .0  2.  ISHFT  .  I  MARX  ,  INA  ME  ,  OR  IG  .  OS  T  N  .  RE  G  P.  E  PAL 

ArS3 

194 

J  ATE  =  0 

ARS  3 

1  95 

1*0 

SOTO  35 

A  RS  3 

196 

50 

IF(T3HFT.GT.ISPFT)GOTO  38 

ARS3 

197 

IF (TSHFT .£Q. ISHFT )  GOTO  55 

AR  S  3 

196 

G  0  T  O  8  u 

AV  S3 

1  99 

55 

HrITh  (  1 1.15*0)  OATE  .02.  ISHFT  .1  PARK  ,  I  NAME  .OR  IG  .  OSTn  ,REGP  .  EPAL 

ARS  3 

200 

14  5 

OATE-O 

AVS  3 

201 

G  JTO  35 

AvS3 

?0? 

AQ 

HRITt  <11  ,1500  )  TOTE  .TD2.TSHFT.  TMARK, TINME.T  OR  IG.TDSTs,  TRFGP  ,r  EPAL 

ARS  3 

203 

GOTO  35 

AV  S3 

204 

100 

IF  (DATE.  NE.  0)  WRITE  <11,1501  )  DA  TE,  0  2,  ISHFT,  I  MARK,  I  NAME  .ORIG. 

ARS  3 

205 

lot 

1  OSTN.RFGP.EPAL 

ARS3 

206 

CALL  ENOFIll) 

AVS3 

207 

0  c  R  1  =  11 

ARS  3 

20  6 

R  E TUr N 

AVS  3 

209 

5  00  0 

CALL  ERROR  <2QC  1 

ARS3 

213 

15  5 

STO3 

ARS  3 

211 

L  NO 

A  V  S3 

21? 

149 


150 


SUBMOUtlNE  CRUfeil 


7*  /  7  4 


LPT=0  ROUNOj*/  TRACE 


F  T  N  4 .6*460 


1 0/15/.0  17.7T.05 


SUBROUTINE  CRUKD 

CRORO 

? 

C  ALPHANUMERIC 

CRORO 

3 

ALPHA  NAME.  TKK,  ORG  .OE S T . T I NNE ( 5 0 1  .T9RIGI50). 

TOST  N  (50  1  . 1  NOME  (5#  1  . 

CRORO 

4 

1  DMIGt Sul.UST  M  53  1 

CRORO 

5 

C  SI  MART 

CRORO 

6 

I  M  T  t  (•  F  R  TRMOO  A  .PAL  .£ME  RG.  T  Of  £  ,  T  RE  GP 15  0  1 ,  Tt  PA  L  « 50  )  .  DA  TE  . 

CRORO 

7 

1R^GP(5G1  .EPAL  (501 

CRORO 

$ 

InTc-I’E R  1MARR.THARc<.KAR<,07,TC7  .OEVl,OEV7,OATEl.OATE?.OARP»(10) 

CRORO 

0 

Z'_Al  SHFT,  ISHFf,rS^Fr.SHlF2 

CRORO 

10 

LOGICAL  UPUTt 

CRORO 

11 

logical  upqt 

CRORO 

1? 

CQMMCN/A VSRC1/YRMCCA.PAL, EMtRG, IF T  N 

CRORO 

15 

gjmhcn/avsrc2/Shf t 

CRORO 

14 

C0KHCN/A¥SRC3/KAi£  ,T9K .ORG, 06 St 

CRORO 

15 

CJNMCN/  TMPRC1/  TOTE  •  TL»2  •  T  MARK,  TR LGP ,  T£  PAL 

CPO  RO 

16 

C0MiUN/TMPRC2/TSHFI 

CRnRO 

17 

CJRHCK/t  MPkwJ/  IINME.  TORIG,  TOSTN 

CRORO 

IB 

COIN UN /h  ISRC1/DATE  ,02#  IHAKK. REGP, EPAL 

CR3RO 

10 

COMNON/H  ISRC2/ ISHFT 

CRORO 

20 

COMMON/ n  ISRCJ/  I  NAME. OR  IS. 3 STM 

CRORO 

?1 

CONMON/r NTkL/UPQ  T  .OARRV .OEVt , 0EV2  ,UP0T6 

CRORO 

2? 

olyi=b 

CRORO 

23 

Or  V2  =  s 

CRORO 

24 

upc t  = .  r. 

CRORO 

25 

UPOTcs.F. 

CRORO 

26 

OA  T F -  0 

CPORO 

27 

3  RcAfHS.lQOO.cNLsf  Ql  YRMCU4  .SH^  T  ,  NA  M t  ,3R  G  .Ot  ST 

.pal.emer  g.iftn 

CPO  PO 

?B 

1  COG  F  JR«m  T  (I6.Fo,  1  ,  Ah  ,2Ab.  15.  ?  Ill 

CP  1  RO 

?0 

I Y*  =  hOoi VRNOOA ,  1J  J» 

CRP»D 

30 

IJAT'  ?3**nooa/igj 

C»OPO 

31 

F irk=FLOAT (I r* > 

CRORO 

3? 

FOTE^FlOAT ( 10A 7E2I 

CPORO 

33 

Fulf.2=F3TEMCUQ.  •  F  IV  R 

CRORO 

34 

f  IFIX  if  C  T£2  ) 

CRO  RO 

35 

IF  (  ATc.tU.u7  GOTC  *5 

CRORO 

36 

I  F  WRMCOA.Lc.  ce  .a  kc.  trmooa  .ge.oats.and. 

CPORO 

37 

1  1  SHF  T  .tC.ISNFI  ISMFT.EQ.O  .MGOTO  GO 

COORD 

3  B 

Cal.  .  PPLCE 

CRORO 

30 

C-Ll  RMTIUAU  1,1)ATE2.S»MIF2I 

CRORO 

43 

I J  ATr  =  Y*MOOA 

CRORO 

41 

SH  IF  T= jhFT 

CRORO 

42 

MARK  £  0 

CPORO 

43 

CALL  0  TF  NOT  IGA  It.SRlF  T  ,MAR<| 

CPORO 

4  4 

IF  a  •  ATt  .E  J.  0  J  GOTC  S 

CRORO 

45 

lUTc.1=UA  Tf 

CRORO 

46 

li  A  T  t  2  r  0? 

CPORO 

47 

SnIF2=  ISHFT 

CRORO 

4  B 

6J  CALL  UP)  ATE 

CPORO 

43 

U  A  T  c.  1  =  U  A  Tf 

CRORO 

50 

IJm  Tt  2  =  C7 

CPORO 

51 

S  h  IF  ?  =  I  >  HF  T 

CRORO 

52 

GOTO  .5 

CRORO 

53 

7G  IF  OATc.Nt.OI  LAlI  rplc-; 

CRORO 

54 

HA  Tf-  =  0 

CPORO 

55 

IMiUd.Nt.u)  GALL  RPRMOATE  1,0ATE?,SHTF2) 

CRORO 

55 

m_kInO  lEVi 

CRORO 

57 

7p  R  lAU  <0t¥  1.  laG  C . E NO = 50 3 G 1 T OT F .  T02,  TSHFT.TMAPK 

, T INME, TORIG, TOSTN , 

CPORO 

5B 

1  T-ttCP,  lr  PAL 

CRORO 

53 

IF <TUTE. EG. 31  uOTJ  503u 

CRORO 

oO 

1500  Fj^MhT  <  ?  Io.Fa.l  .Io#50A**.10wAb  *  L  CO  I  o  1 

CRORO 

61 

NhITc  1  11,1500)  7  DTE  .T02.TSHFT,  T  N  AR<  ,  T  I  NMr  ,  TORIG.  TOSTN,  TRFG  P.rrpAL 

CRORO 

6? 

GOTO  7  5 

CRORO 

63 

5  CCC  CmL  L  F KOFI  111 

CRORO 

64 

-c  T 1 1-  N 

r.pnRO 

65 

cNC 

CRORO 

66 

1  5  3 


SUBkOUllNi 

1 


5 


1  J 


15 


2i* 


Zb 


1 


5 


1  J 


: 


i 


f  Tim  ~ 


OMPir  2-*//4  OPT  *  0  RQUNO**/  RACE  FTN  4.6*4  60  10/15/80  12.  23. 


subroutine  omf  i  t 

( 

8 

C  ALPHA 

FPP 

q 

ALPHA  INAMEI5S  I,3«IG150>.OSTN15C) 

FPP 

10 

C  BIN.Rr 

FPP 

1  1 

INTEGER  02 

EPP 

1? 

IhTEGEk  OATE.fttGP  1501 .EPAL1S0  1 

FPP 

15 

StAL  ISHFT 

FRP 

14 

COMMON/HISRCI/OAT  £  ,02.  IMA  RK .  REG  P.E  PAL 

£PP 

15 

C3MM0N/HISRC2/ISHFT 

f9P 

16 

GOMMCN/H  ISRuJ/  INA  ME.OftIG.  OSTN 

rpp 

17 

D  mTE*  C 

F?P 

18 

REhInO  11 

£«P 

iq 

lu 

F£A(1  (  1  1,  10  00.  E  ft  0=201  DATE  .  02. 1  SHFT  .  I  MARK,  tNAME  .ORIG.OS  TN.FFGP.  EPA(. 

FPP 

20 

1004 

FuRM*.  T  (2I6.F6  •  1,1  a , SO  A*.  10QA5 ,100  1 5) 

fRp 

21 

IF10AfE.EQ.OI  GOTO  20 

ppp 

22 

PRINT  1200,OATt.I SPFT 

E*P 

21 

1  20  0 

FORMAT  1 -l-.l6.fb. 11 

FPP 

24 

00  15  1*1.50 

FPP 

25 

PRINT  1500  . 1  NAME!  II.  OR  I G II  1.05  TN  4 1 1.REGPII  t ,  EP  AL  ( I > 

FPP 

26 

1500 

FOkMaM2m  .An, 2m  .A5.2M  .A6.2M  ,16, 2H  .15) 

27 

1  5 

Coat  iNUr 

FPP 

28 

GOTO  10 

FPP 

2q 

20 

Print  2roo 

FPP 

30 

2S00 

FCRMmT  1-  END  CF  FILE”) 

FPP 

51 

ft  c  TJ5  N 

F*« 

5? 

c  NO 

FPP 

5  5 

SUBROUTINE  oatramoatein.io*  .IYR, MONTe) 

otpn 

2 

L  ALFHA 

OTPN 

5 

ALPHA  H3T9LEOJ)  .MONTH 

otpn 

4 

C  BINARY 

otpn 

5 

INTEGER  OATElN.10A.lYR 

otpn 

6 

DATA  MCT  PLE/J  EJAN  ■  JHFE8 ,  JHMAR  .  JHA  P"  ,  OHM  A  Y  ,  3MJUN.  JMJJL  ,  JHAllG. 

otpn 

7 

1  3R5cP  *  T  HO  CT  «  3  ENO  V  «  SHOE  G/ 

otpn 

8 

IYRSUA  Te  IN/10  00  0 

nr»N 

q 

ImO=IOAT£IN-  1C0  00  MYR)  /lOQ 

ot»n 

10 

iaA=nArEiN-iacoo'  iyr-ico*imo 

otpn 

11 

MQNThsNOTBLcIIFO) 

otpn 

12 

RtTJt  N 

OTPN 

15 

END 

OTPN 

14 

154 


F 

SET-UP  NEW 
BLANK  RECORD 


PRINT  MSG 
"REQUESTEDy 
^RECORD  NOT/ 
FOUND” 


DATE1=0 


bUd»ouiiNt  orfNj 


7-t/Tt  CPI*0  ROLNQs*/  TRACE 


FTN  4.  6*460 


1 0/ 1 6/8  0  IE. 23, 08 


i 


1 

SURPOUTIKE  OTF  *. 0< CATE  1. SHIFT.  HARK* 

OT  F  NO 

2 

C  ALPHANUHERIC 

OTF  NO 

3 

ALPHA  I  n  AHt  (50*  ,  ORIGTSOI  .DSTN  150* 

OT  F  MO 

u 

C  81  64  R  y 

OTF  NO 

5 

I  NT-:  GER  CATE  .CARR  T(  10* .  JSA  VE.  REGP  (  =0)  ,  EPAL  15  0*  , 

OT  F  NO 

6 

lOtVl.OE  <2.  OAT  £1,02.  I  HARK 

OTF  NO 

7 

RcAL  SHIFT, ISHFT 

OTF  NO 

* 

LOGICAL  upote.cpoi 

OTF  NO 

9 

COHHCN/H ISRC1/CAT  c .02 . IHARK . REGP, EPAL 

OTF  NO 

10 

X  c 

COHHCN/HISRC2/ISHFT 

OTFNO 

11 

CuMHCN/HISRCJ/INAME.ORIG.  ostn 

OTF  NO 

12 

COHMCN/C6TRL/LFOT.CARRY.OEV  1.  OEV2.UP0TE 

OTFNO 

13 

RcHlNO  (1EY1 

OTFNO 

14 

10  RtAOiOEVl.  ICO  L.ENO*  201  GATE,  02.  ISHFT,  IHARK,  INAME  ,  ORIS  ,  OST  N.Rr  GP  , 

OTFNO 

15 

15 

1  t.  fal 

OTFNO 

16 

1  000  FOKHAT  I2I6.F6.  1 ,1  6.50 Ah,  1 0  0 A6 . 1  00  161 

OTFNO 

ir 

IF10A  Tt.EQ.u)  GOTO  20 

OTFNO 

in 

IFIOATEl.GT.OEIGOTO  20 

OTFNO 

19 

,  IF  (.NOT,  <DATtl.GE.OATE.ANO.nA  TE1.LE.D2!  1  GO  TO  10 

OTFNO 

23 

20 

IFdjHFT.EO.O*  RETURN 

OTFNO 

21 

IF(ISHFT.N£.ShIFT*GOTO  10 

OTFNO 

22 

IFIUPDT*  RETURN 

OTFNO 

23 

IF(HARK.GT.IMAhK»GCTO  20 

OTFNO 

24 

PRINT  2000 

OTFNO 

26 

<  5 

2  CO  0  FOAHATI"  ATTEHFT  TC  LPCATE  RECORO  TWICE  WITH  SANE  OATA-. 

OTFNO 

26 

1/."  program  aborteo-i 

OTFNO 

2T 

STOP 

OTFNO 

zn 

20  If(UPOT*  GOTO  40 

OTFNO 

29 

n  A  TE=0  AT  £1 

OTFNO 

30 

Ju 

02-0ATE1 

OTFNO 

31 

I5hFT=SHlFf 

OTFNO 

3? 

IHA9k=H«RK 

OTTnO 

33 

00  lu  J-  1 , 63 

OTFNO 

34 

I  NAME  1J1  si  OH 

OTFNO 

35 

35 

CRir. ( jis  io h 

OTFNO 

36 

OSTN  U*  =  10h 

0Tr  NO 

37 

PsGP<  Jl  =0 

OTFNO 

3A 

30  EPAL<J)=0 

OTFNQ 

39 

Ac.  TUk  N 

OTFNO 

40 

•*  u 

40  PRINT  3000. CJATE1,  SHIFT 

OTFNO 

41 

3  000  FORMAT!"  NO  RECORO  FOUNO  IN  HISTORY  FILE  FOR  ENTRY  WITH  nATr  ", 

OTFNO 

42 

i  io,~  anc  shift  ",F6.ii 

OTFNO 

43 

0  A  f£  1  =  J 

OTFNO 

44 

RE  Tu~  N 

OTFNO 

45 

4  ■? 

E  NO 

OTFNO 

46 

157 


SUBROUTINE  ERROR 


7M/F4  CPT«0  ROuNO«»/  TRACE 


FTN  %  .&  *460 


10/15/BO  12.23.05 


l  S  UflHUU  T I  Nr.  tRRCRTFSGNOI 

INTEGER  rSONO 
PRINT  lOOO.HSGFO 
1  000  FORrtfc  T  ("  ERROR  NUMBER  ",I4I 
5  STOP 

C.ND 


FRR  ? 

FRR  j 

ERR  4 

ERR  5 

FRR  6 

ERR  7 


1 


5 


SUfPUUIlNE  LNCFCICERT  ENOF 


I  nT  tUE  N  DAT  4.0  2.  IMARK.REGP15  0>  ,  EPAU5  0T 
Rc.AU  ISrtFT 

ALPHA  inane  (501.0RIG(50I.OSTN(50I 
COmNGN/miSRO  1/0  ATE. 0  2.11  ARK.RcGP.EPAL 
UONNCN/HISR..2/  I  SHF  T 

c jhmon/hisrc j/inahe.orig.ostn 

OAT:  -0 

RRITu  «  11  .1500  IOATE  ,02 .1SHFT  .1  RARK  .INANE 
150  0  format (2If.fr.  x.ie.  soar.  iooa6.ioo  ioi 

44  TO" N 
t.TO 


ENOF  3 

ENOF  4 

ENOF  5 

ENOF  A 

ENOF  r 

ENOF  3 

ENOF  A 

OR  IG,  DSTN.REGp,  FPAL  ENOF  10 

ENOF  11 

fnitf  1? 

FNOF  13 


158 


V. 


MERGE 


m 


BLANK  OUT 
BACKLOG  ENTRIES 
IN  RECORD 


READ  RECORD 
FROM  IDEV 
INTO  TDTE" 
A 


/DATE2V 
^  LE.TD2  \ 
AND  DATE2  GE 

\  tote  z' 


^DATEfV 
^  GE  TDTE  \ 
AND  DATE1  LE. 
\  TD2  / 


UH  J  'V 

'GE  TD2  AND\ 
DATE  1  LE  TDTE/ 


ACCUMULATE  "TDTE” 
ENTRIES  IN  "DATE" 
TABLE 


■**-•*■ 


SUflROUIINt  HfcRGF  ?*/7h  OP  T*0  ROUND**/  TRACE  FT  N  4.6*460 

to  /I  5  /SO 

1  Z.23 

aUHROUTINE  HE*  G  t<  0  AT  £  1  .3  A  T  t  2  ,  IOcVt 

URGE 

2 

C  OAT  tl"  START  OA  Tt  CA  T£2 -TER  Hi  NA  L  DATE 

HPGE 

3 

C  BINARY 

URGE 

4 

integer  oatc1*cate*.iptr?<  5o>  .oate.u?,  imark, search  . 

HRGE 

5 

1K£GP<5GI  #£PALC6fl)  ,TDTt.TQ?,THlRK,TREGPt5Q»  .TtPAL  <50> 

HRGE 

6 

i.  UGIC A  l  R£ St  T 

HRGE 

7 

«c al  ishft ,tshft .shift 

HRGF 

* 

C  AlPh- 

HRGE 

9 

A  l  PH-  THPOki,  TAFOS.  ADATct,  »OAT£2,INAN£«50>,OSIGf30>,:>STNfS0>. 

HPGF 

10 

IT  iNHr  (50).TGSTNf:>0).TORIG<50)  .  JNA  He  ,  JOAG  .J  C£  ST 

*pr,E 

1 1 

C  ONNON/ThPSCI/ TOTE  .102  .TmAR< , TREGP ,T£P AL 

HPGF 

1 2 

CONNGN/TNPPC2/TSHFT 

HRGE 

13 

C  UANCN/ T  MPRe 3/  riNEE.TORIG.TOS  TN 

HRGE 

14 

0 JHHCN/H ISRC1/CA  r  c  .02 . INARK ,Rf GP, £PAL 

HRGE 

15 

OJMNON/HISPC2/ISHFT 

HR  G  F 

16 

C  CmmCN/h  I  SRC  3/  INA  PE.JRIG.OST'i 

HRGF 

1/ 

Ac«lNO  I  0£  V 

K»  GE 

IS 

RcAOl  10?  V.1G0  .  .ENC  =  50JG>O»TE.O2,ISrFT  .INARr.InANE.ORI  C.OSTn.  REGP. 

HPGF 

19 

1  -PAL 

HRGF 

?Q 

1  Du  C 

FJRMATI2Ib.Fo.l.  IE.  5jA  a,  lOOAb.lOOIbt 

HRGE 

2  1 

i f (OATt. eq.o i  gotc  saoa 

MPG£ 

2? 

1G 

I  ?  <OA  Tt2  .Lc.02  ,AN0.0ATt2.  Gt.OATt  IGOTO  20 

HPGF 

21 

IF (HATEt .GE.OATt.ANO.OATEl .L£. 02 (GOTO  20 

HRGE 

2  4 

IF(;'l£r?2.Gc.02.ANO.OATEt.L£.OITE)GOTO  20 

HRGE 

?5 

IF  1  OAT £1  .GT. 02>  i CTO  lfc 

HRGE 

2b 

15 

REAOT I  OcV,  IOul  .END*  16  TO  ATE  ,32  .  ISHFT,  I  MARK.  INANE.  OBIG.  OSTN.  R-'  GP. 

HRGF 

rt 

1  i  FAC 

HRGf 

2b 

IF  TOATc.EQ.ut  GOTC  16 

HP  GE 

2  9 

GOTO  10 

HRGE 

30 

16 

PRINT  aQCO 

HRGE 

31 

4000 

F  j  Ah  AT  (IN  ."RECORO  NOT  FOUNO  FOR  RE3UESTE0  OATES  ANO/OR  SHI-T") 

HRGE 

3? 

S  TOP 

HPGF 

33 

20 

no  26  1=1,60 

HRGE 

34 

IF  (I  NAE?  <1  1 .  NE  .  4H222Z  >  GOTO  25 

HRGF 

35 

OnIG 1 I  1  =  ION 

HRGE 

36 

OSTNT  I  1  =  10H 

HRGE 

37 

I  NAHA  <  I  1  =  10H 

HRGE 

3  fl 

RcGPT  1 1=  0 

HRGE 

39 

;PAl<  11  =  0 

HRGF 

40 

2b 

CGnTINOl 

HRGE 

41 

27 

Kc  AO  <  I  Or.  V,  1000»£NO*5010T  TOTE,  T02,  T  SHF  T.TNARK.TINNE.TORIG.TDSTN, 

HRGF 

6? 

1  TREGP.TEPAl 

HRGE 

4  3 

IF  (TijTE.ET3.JI  AETLRN 

HRGE 

44 

IFO-Tc2.Lt.T02.AEC.0ATE2.GE.  TOTE  >  GOTO  30 

HRGF 

45 

IFTO-Tcl.Gt.TOTt.ANO.OATEl.LE.T02l  GOTO  30 

HRGF 

4  6 

I F  <OA  TE2 .  f.t . T02.ARC.0A  T£1 .lE.  TOTE*  GOTO  30 

HRGE 

47 

IFTOATcl.GT.TL2)  RETURN 

HPGE 

40 

30 

J  0  AT  r  =  I 

HRGF 

49 

IF  1  T02.GT.02>  C  2=  T02 

HRGE 

60 

IF  (TI)Tc.LT  .OATtlQ#TE=TOTE 

HRGE 

51 

oo  6  2  ;=  l. 50 

HRGE 

52 

IFIT  1NHE  (I).EO.  10E  .  ANO.  TORI  GII  ).  tO  .  10M  .IHO. 

HRGE 

53 

1  TJSTNII >  .EQ.1CH  1  SOTO  42 

HRGE 

54 

IFTTI NHF (I • . EG.4H2272) GOTO  42 

HPGE 

55 

'  ■*  AR  r  =  T  I  NHE  <1  1 

HRGE 

1  $ 

JlAG=  TCRIGCI  ) 

HPGF 

57 

JDcST=  TOSTNT  I  I 

HRGF 

50 

1  ',2 


SUtfROU  TlNt 

Ht«ce 

7h/7m  CPT  =  0  ftO lNO=  */  T»AC£  FTN  4.  6»M6f) 

10/15/S0 

12.  ?3 

rcset=.t. 

HPGt 

5R 

INJE  x=SE  ARCHl  JUATt  .JNA*€  t  J  OR G  •  JOE  ST«R  tS£T) 

MPGF 

60 

o  u 

IF(In0EX.n£. Q  )  GOTO  35 

po  r.f 

61 

JN  ANt  =  13  F 

ms  GF 

6? 

JORG^ 10H 

MPGF 

hi 

j jest =1) h 

MPGF 

6<* 

iNCf.  x  =  5£ARCrtl  JCAT  £  «  J  NA  ht  •  J  CR G  ,  JOE  3  T *  Rt  G'  T  1 

MPGF 

65 

c  t> 

IF!  ISOE*  *£Q.  u)  GOT  C  <*C 

MPGF 

6b 

INAMl  (lNCEO=T  lNHc  <  I) 

MPGF 

f  ** 

OR 1G( I  NOE  X l =TORIG (I) 

MPGF 

F  A 

OSfNt InOEX  »  =ToSfN  ( I I 

MO  G  F 

f  R 

J  5 

Kc.GP(INOEXl  =  RtCPflNDfcX)»T«L&P<I) 

MPGF 

70 

r  u 

t PAL (INOEXI  =  c  F AL(  1  NOtX 1 ♦ T  EPAL  C I ) 

MPGF 

71 

GOTO  *2 

MPGF 

72 

*  Q 

P«INT  15Q0  .TOTt  •  TC2  .TORIGU  >  .  TOSTN  <1  I  ,  TINME  (I  1  ,T»EGP  <  I  1  .TFPAl  III 

MPGF 

>  ^ 

1500 

fJfifiuK-  FOLLOWING  ENTRY  NOT  InCLUJEO  ** ,  21  o.  2  A  b  ,  4  4 , 2 1  61 

MR  GF 

7u 

hZ 

CCNT  iNUt 

MPGF 

75 

7  5 

GOTO  27 

I®  GF 

76 

5  000 

CALL  ERROR CiuCI 

MPGF 

77 

5010 

R-;  TUk  N 

MPGF 

7A 

F  NO 

mo  GF 

?q 

1  (V5 


subroutine  HRGIT 


7-»/74 


op t  =  o  rouno=»/  trace 


FTN  4.  6*460 


10/15/flQ  12,23.0b 


r 


1 

SUBROUTINE  MROITl  CATEl.OA  T£2» 

FNOF 

14 

AlPHm  T INHE<5  C) , TCRIG<50>  ,  TOS IN (5  0 ) , I NANF<  50  > ,ORI G<50  1 ,OSTN<5  0 ) 

END  F 

15 

INTEGER  06  VI,  OE  V2  ,  CARRY < IQ  1  ,  TREGP<5QI  •  IEPA  L  C  50  )  ,REGP  <  50  \  ,EPAL  <501, 

F.NOF 

15 

10A  TE.TOT  E,02.T02,  IN  ARK  ,f  HARK  ,0  ATE  1  .DATE  2 

FNOF 

17 

5 

REAL  TSBFT.ISEFT 

F  NOF 

1  3 

LOGICAL  UPUT  ,UPQT  E 

ENOr 

1  9 

COMMON/ THPRCl/T DTE , T02. T MARK, TREGP, TEPAL 

F  NT)  F 

20 

COMMON/ TMPRC 2/ TSHFT 

F  NOF 

21 

C0PN0N/THPRC3/ T IN>E , TQKIG , TOS TN 

F  NO  F 

27 

1  0 

COMM  ON /H ISRC 1/OAT  fc  *02* IMARK* REGP, E PAL 

FNOF 

2  3 

COmmGN/m  ISRC2/  I  SHFT 

FNOF 

?-* 

COMMON/M ISRC3/ INAME  %  Oft IG, OSIN 

FNOF 

25 

COMMON/CNTRL/UPQT ,OARRY,OE VI, OE V2.UP0TE 

FNOF 

L  6 

Lie.  Vl  =  8 

FNOF 

27 

15 

RlWINO  3EV1 

FNOF 

?* 

IO£V=D6V  1 

FNOF 

2R 

IFI0**Tt2.G£.0ATE  1)  GOTO  10 

EN0F 

30 

I TEMP-QATE1 

FNOF 

31 

U A  TE1=  DA  TE2 

ENOF 

3  ? 

2b 

OA  Tt2=  IT  EMP 

FNOF 

33 

i  a 

CALL  MERGE  ( D ATE  1,  DATE2*I0EV) 

FNOF 

34 

0 A  Ti.2-02 

FNOF 

35 

OATE1  =CA  TE 

FNOF 

34 

RcwlNO  DEVI 

FNOF 

37 

25 

I  SHF  r *o. 

FNOF 

33 

I  MARK  =  0 

FNOF 

3R 

RcAOIOEV 1.160C .ENO*50 00)  TOTE,  TD2, TSHFT  ,T HARK  , T I NME , TORI G. TOS TN , 

FNOF 

40 

1  T*EGH, fEPAL 

FNOF 

41 

1  J00 

FORMAT i? I6,Fb. 1,I€«5QA4« 1 0  0  A  6 ,100  16* 

FNOF 

4  ? 

30 

15 

IF  tOATE2.LE.TC2.ANC.OA TE2.GF. TOTE*  GOTO  23 

FNOF 

4  3 

IF (OATE1 .LE.T02.AN0.DATE1.G6,  TOTE  I  GOT  0  20 

ENOF 

44 

I F  <  OA  TE2 • G  £ • TC2  •  A  N  C • OA TEl.L  E, TOTE)  GOTO  20 

FNOF 

U  ? 

HRITE  i  11  «10u0  IT  OTE  ,T02  ,TS  HFT  ,  T  HARK  ,  T I  NHE  ,  T  OR  I G,  TO  STN ,  TR  FGP.  T  FP  AL 

FNOF 

*♦5 

GOTO  3  0 

ENOF 

U  7 

35 

20 

IF  OATE.  NF.  0  )  WRITE  <11, 10  0  0  »  OA  TE,  02,  I  SHFT,  I  HARK,  I  NAME,  ORI5.  OSf  N. 

FNOF 

uA 

1  REGp , £p  AL 

FNOF 

4R 

O  ATF  =  0 

FNOF 

c  * 

JO 

RE AO  <OEV 1, luOG ,ENC=40) TOTE, TO  2, TSHFT , TMARK ,T IN ME , TOR  I G, TOSTN, TREGP 

FNOF 

51 

1, TEPAL 

FNnr 

5? 

40 

IF  (TOTE.EQ. C>  GOTO  40 

FNOF 

53 

GOTO  15 

FNOF 

*•  * 

40 

IF  13  ATE.NE.  0)  NRITE  (11,100  01  DA  TE  ,02  ,ISHFT,I  MARK  .1  NAME  ,OPI  G.OSTN  , 

FNOr 

55 

1  REGP,  Ep  AL 

FNOr 

54 

CA  LL  EMF(ll) 

FNOF 

5  7 

45 

OE  Vl= 1 1 

ENTF 

5  * 

RET  UR  N 

FNflf 

CR 

5  000 

1  CALL  E  RROR  <30  0  • 

ENO  F 

60 

ENO 

FNOF 

61 

f 


SUpRUUTlNt  sPL(.r 


7,/7„  UPf=0  ROU><0=»/  TRACl 


FTN  <..6*4  60 


10/1S/SIJ  12.23.05 


2  0 


a  •. 


35 


3 JRkJU  T  INE  KPLCE 

L  4LP  alp  MR*1  HARE  .TRK  .  08  G  .  0-  SI.  T  INME  t  5  0  I  .  TO1?  I  &  <  5  d  I  .  TO  S  7  N  I  50  >  .  I  «»"F  «  ’  C  »  . 

1  UhIi.I  SJ>.OS7M50) 

C  SrNfl^tf(  tR  Y*n00A.PAL.£M£t<G.TOTF.TR£6PtSO>  .tEPALISOt  .OATE.OARRf  1 1 0 »  . 
Hl4»(  5C1  ,f  PALISOI 

InTi-GEn  IPAkK.TM»«*.NAR<.C2.TC2,Dt</l,0EY2 
RC1L  ShFT.  ISHFT,  TSHFT 
LOGICAL  LPOTc 
L  J 4 1 r  A L  UPDT 

i;  jmhun  /A  VS*C  1/  YRHOOA.PAl.EHERG.  IFTn 

l,  JHNON/AVSRC2/SHF  7 

COHHON/AVSRC3/6A1c»TRI<.ORG»OEST 
r.  jRiiCN/TMPSL.1/ Iore.ID2.ru ARK.  TREGP  ,TEP  AL 
c  ^PRCN/  I MPRC 2/1  SHF  7 

clrhcn/t hprc3/ t i npe.  torig.  rns  tn 

Z jHHnN/HlSKCl/QATE.02.IHAR<.REGP,EPAL 

LJPHCN/HISRC2  /ISHF  7 

COMMON/H  IS HC 3/  INAPE. ORIS, DSTN 

CjMMCN/CkTRL/GFO  T.CARRY.OEY  1.DEV2.UPDTE 

V.;wlNO  flEYl 

KlaInO  0ER2 

s  RiAU  <OtY  1.  IS  EC  .  ENJ-5DI  707E.7  0  2,  7SHF7,  7  MA  RK  ,  7  16  FE  .  TOR  I  G .  7DSTN.  TREGP 

1. fEP-L 

1500  F0AMAT<?Ib.Fb.l»Ib.5GA4.l00A6.10<JIol 
I  F  (7nTt . EO  .  o  I  GOTO  SO 
IF*7.)TE.r,T.oAIc»  GOTO  40 

IF  tTTTE.EO.OAItt  GC7  0  20  ,  _  , 

k-iir,  (Cr  02.  15  C0IOA7E.O2.  ISHFT.  I  NARK. I N AHc,  OR  IG  ,  D  S  7  N,  R  EG  P  .F  PA  I 
IT ,  <  Ctv2,  ISC  0  1  7C7E  . 702 . TSMF 7 .THASk.  7  INME  .7  OR  IG  ,  TOS  TN  ,TRF»>  . 

IcP-L 
lATEiO 
GOTO  5 

IF(TflTc.E0.702l  GOTO  25 

h-.ITl  (0EV2,  15  0  0  »  □  ATE.  0  2.  ISHFT.  I  PARK,  I  NA  ME  ,  OR  IG  .  DS  TN,  R  EGP  . 

fal 

OA  Tt  =  0 
GOTO  5 

IF  I  T:»HFT  ,GT ,1  ShFT  IG070  10 
IF(TSHF7  ,tO.  ISMF7  )  GOTO  30 

GoT~  40 

*-<ITr  (Ut  V2*l5i  C>L>fl  Tt*  02.  I  SHF  r,  I  MARK,  X  NA  HE,  OR  IG  ,  0  S  TN,  R  EGP* 

1  Al 
0  ATt=  0 
G  J  TO  5 

w-!ITt.  (  Or:  V2, 15  CGI  T  CT£.  T02,  TSHP  T,  THA-^K,  TINHE  ,  T  OR  I G  *  TOS  T  N  •  T  »  F  &>  *. 
i  r  t 3  al 

GOTO  5 

iF<rurt.N£.o>  , 

tWKXTr.  (uc.V2. 15CG)jAT£»J2b  ISHFT  .1  MARK tlNAH£,  ORIG.OST^  REGP-  FPAL 

UtV  s  ,>fcV2 
CALL  ENJFlIOtVl 

I  F  <  •  MOT.  UPOTE  I  CALL  C  HA  NGE  (5 . 5  FT  EM  P  2  > 
uPCTts.r « 
i  r  CMp=c-_vi 
W  l=Pc'/2 


1C 


20 


25 


JO 


4J 


50 


1 


1 


RPLCE 

? 

RPLCE 

5 

RPLCE 

4 

RPLCE 

5 

RPLCE 

6 

RPLCE 

7 

RPLCE 

6 

RPLCE 

9 

RPLCE 

10 

RPLCE 

1 1 

RPLCE 

1? 

RPLCE 

13 

RPLCE 

14 

RPLCE 

15 

RPLCE 

15 

RPLCE 

17 

RPLCE 

1ft 

RPLCE 

19 

RPLCE 

20 

RPLCE 

21 

RPLCE 

27 

RPLCE 

21 

RPLCE 

24 

RPLCE 

25 

RPLCE 

26 

PPL  CE 

27 

RPLCE 

2ft 

RPLCE 

29 

RPLCE 

30 

RPLCE 

31 

RPLCE 

32 

RPLCE 

33 

RPLCE 

34 

RPLCE 

35 

RPLCE 

36 

RPLCE 

37 

RPLCE 

3ft 

RPLCE 

33 

RPLCE 

40 

RPLCE 

4  1 

RPLCE 

42 

RPLCE 

43 

RPLCE 

44 

RPLCE 

45 

RPLCE 

46 

RPLCE 

47 

RPLCE 

4ft 

RPLCE 

43 

RPLCE 

*0 

RPLCE 

51 

RPLCE 

52 

RPLCE 

53 

RPl  CF 

54 

RPLCE 

55 

RPLCE 

^b 

RPLCE 

57 

R»LCE 

5ft 

165 


'DATE1Ss 


EXCHANGE 
DATE1  & 
DATE2 


ICOUN  I  =0 
!DEV=DEVl 


CALL  MERGE 
(DATE  1 . 
DATE2, 


DATEO 

EQ.DATE1 

AND 

ISHIFT.EQ. 
v  SHIFT  x 


PRINT  ERROR 
l MSG "RECORD; 
\NOT  IN  FILE"/ 


D2.GE  X. 
DATE!  AND. 
.DATE.LE.DAT El  AND. 
\  SHIFT. EQ.O  / 


RETURN 


SUeftOUllNt  RPP1 


7w/7** 


CPI  -  0  RCUNO**/  TRACE 


FT N  4.64460 


10/15/80  12.23.05 


1 

SUHRuU  II  K£  RPR  I  (0AIE1.0ATE2.  SHIFT  1 

RPPT 

2 

C  UATE1-ST*«T  OATt  C  A  TE2  -TEflMI  NAL  CATE  SHIFT-WALIO  HHEN  0  AT  E  t*  DA  TE  2 

RPPT 

3 

C  OIkAkT 

RPRT 

4 

INTEGER  0EV2 

RPR  T 

5 

5 

INTEGER  0ATE1.0ATE2,  IPT«2(S0)  .  DAT  E,  02  ,  I HAR  K, 

RPRT 

6 

1  Rl  Gp  (501  .EP«L  (50  1  .  IOTE.ro?,  TMARK,  TKEGP  (50)  ,TEPAL(50).DEV1. 

RPRT 

r 

1  OARkT(IO) 

RPRT 

6 

LOGICAL  CPOr.CFOTE 

RPRT 

9 

LOGICAL  REScT 

RPRT 

10 

i  o 

Rc.  AL  ISHFT.TSHFT.  SHIFI 

RPRT 

11 

G  ALPHA 

RPRT 

12 
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x  10 

1  5 

1 

FALLcl S 

P  P  0  il 

b  7  E 

TO 

1 1 

1  c 

1 

PALLETS 

FkO  4 

6/  E 

To 

23 

17 

1 

pallets 

PP0.1 

67  t 

TO 

e  l 

1  a 

l 

F aLlE  T  S 

PP  0  M 

bi  t 

TO 

047 

1  4 

1 

FALL  lTS 

F404 

6  7  E 

To 

1 

2  b 

a 

pallets 

FPOM 

67  E 

To 

1 1 21 

2  1 

1 

PALLtTS 

F  PO  1 

b7E 

TO 

*.  9 

2  2 

1 

FALLl  TS 

FP.Oii 

Of  t 

To 

a  4 

23 

1 1 

PALLtTS 

F-  04 

1  b  0  f 

TO 

22  4 

2  >♦ 

11 

PAllE  r  S 

Fi  0.1 

lcfli 

TO 

c-7 

2  5 

11 

PALLt  T  S 

ppoa 

1  bO  f 

TC 

2  3 

2  e 

1 

PALLtTS 

FPOM 

lbO  f 

TO 

1 

27 

11 

PALLtTS 

FPOli 

ItO  3 

To 

1172 

2  a 

11 

PALLt  TS 

FPOM 

It  0  3 

To 

1  c  0  b 

24 

11 

PAlL  t  T  5 

FP04 

1-0  3 

To 

1  53  3 

3  0 

11 

P«L  Lt  T  S 

F?04 

lt  0  3 

To 

1  133 

3  1 

b 

PALLET  s 

FkO.1 

lbfl  3 

TO 

1  o  0  o 

32 

1 

PALLtTS 

Fk  Ori 

Id  1 

To 

224 

33 

1 

PALLtTS 

F-204 

111 

To 

X  10 

34 

2 

PALLt  T  S 

FkU.4 

111 

To 

23 

3  o 

2 

PALLETS 

F^on 

1602 

To 

1 1  2  1 

3  t 

7 

PALLtTS 

FPo  4 

It  0  2 

TC 

2  24 

37 

3 

PALLtTS 

FP  04 

lbO  E 

To 

2  24 

3  a 

1 1 

FAlLET  s 

Fr.0(1 

1  oO  6 

To 

SM 

3*3 

3 

PALLlT  s 

F  r’  J  1 

1  bO  6 

To 

1  bOo 

*♦  0 

1  1 

PALLt  TS 

F»  Ori 

ltOb 

TO 

X  10 

4  1 

1 

PALLtT  S 

Fi'04 

lr,0b 

To 

23 

42 

1 

PALLt  T  S 

Fb  0  4 

1  b  0  -j 

TO 

t47 

.  - 

« 

L>  * .  .  L  T  C 

C  .  1  U 

-  -  *- 

T  t\ 

•  d  O  i 

I  70 


■L 


Hill 


4  4 

2 

HAL Lb T  S 

PROM 

lc  0  2 

TO 

224 

4  5 

7 

PALLETS 

FROM 

lb  0  2 

TO 

S  a 

4b 

1 

PALLlTS 

FROM 

lr,  0  2 

TO 

23 

4  / 

1 

FALLtTS 

FROM 

lb  0  2 

TO 

fa  4b 

4  a 

2 

PAlLlT  S 

FROM 

lb  0  2 

TO 

C47 

49 

30 

pallets 

FROM 

lo02 

TO 

1507 

90 

1 

hAllcTS 

FROM 

bfa£ 

TO 

150  3 

5  1 

10 

PAlLl  T  o 

FROM 

fan  £ 

TO 

19  1 

52 

1 

PAlLcTS 

FROM 

fab  £ 

TO 

224 

53 

1 

PALLlTS 

FrOH 

or  £ 

TO 

SM 

b  ** 

1 

PALL  tT  S 

F  A  O  N 

fah  £ 

TO 

X  1 0 

55 

10 

PALLlTS 

Fi  DM 

1  oO  4 

To 

fa  47 

5  o 

2 

PALLE  T  S 

FROM 

1  c  0  4 

TO 

224 

57 

1 

Pm L L L  T  S 

FROM 

Si 

TO 

1172 

5  a 

1 

PALLlTS 

FROM 

b7H 

TO 

SF 

VlHIClES  S^LtCTEO 


1 

VlhICLl 

S  T 

1 

CAPACITY  - 

7 

PALLE IS, 

ROUTE 

(JURATION  = 

240.0 

MI  NS 

2 

vehicle 

S  T 

2 

capacity  - 

7 

PALLETS. 

ROUTE 

0  J  RAT  ION  = 

240. 0 

MINS 

3 

VcHIcLf 

ST 

3 

capacity  = 

7 

pallet  S. 

ROUTE 

OUkATION  = 

24  0.0 

HI  NS 

4 

VEHICLE 

T  A 

1 

capacity  = 

12 

PAlLc  ts. 

ROUTE 

DURATION  = 

240.0 

MINS 

b 

V£  h IClE 

T  T 

1 

capacity  = 

1- 

PALLcTS. 

ROUTE 

DURATION  = 

2  k  0  •  w 

MINS 

b  VEHICLE 

I  T  1 

CAPACITY  = 

1C  PALLLTS, 

ROUTl 

DURATION  = 

24  0. 0 

Ml  NS 

7  VcHIllE 

I  T  2 

CAPACITY  = 

10  PAlLlTS, 

ROUTE 

DURATION  = 

240.0 

MI  NS 

180 


w  t  hi  cl  t 

START  Tint 
J  Alt 


ST  1 
400  . 
102080 


STOP 

SITE 

T  I  He 

OLL IVtk 

k  ♦  *  * 

k  ♦  •  ♦ 

PICK  UF 

ORDER 

STAY  TIME 

1 

1602 

80  9 

7 

PALLETS 

4  5 

3 

2 

Srt 

61, 

7 

pall-:  ts 

3 

3 

lp  0  2 

623 

7 

PALLt  TS 

3b 

3 

k 

22  a 

8  3  8 

T 

1 

pallets 

3b 

3 

5 

bob 

653 

1 

PALLt TS 

$4 

2 

1 

PALLt TS 

52 

1 

b 

b/c 

»5  7 

3 

PALLt  IS 

12 

3 

7 

X  lfl 

911 

1 

pallets 

54 

2 

8 

224 

91  5 

1 

PALLt  TS 

52 

2 

3 

P  A  Ll.  E  TS 

12 

1 

9 

lb 0  3 

94  1 

5 

PALLETS 

31 

3 

10 

ItOfe 

1^06 

? 

pall c TS 

31 

3 

1  1 

1  o0*» 

1011 

2 

PALLcTS 

56 

2 

12 

lo02 

10  15 

2 

FALLE  TS 

*♦4 

2 

13 

191 

1019 

1 

PALLETS 

32 

2 

1  A 

224 

It  44 

2 

PtLLiTS 

5b 

2 

2 

P  *»  L  L  r.  T  S 

44 

1 

1 

PALLETS 

32 

1 

1  8 

lpl 

1110 

2 

PALLETS 

34 

2 

1  D 

lb02 

1  11  4 

1 

PALLt  TS 

4b 

2 

1  7 

23 

1143 

2 

PALLt.  TS 

34 

2 

1 

PALLETS 

4  O 

1 

kOUTt  tNutli 
LOCATION  =1074 
T I  ME  =  1211 

NO  OF  PALL-T3  MOYtO  =  32 


181 


VEHICLE  -  ST  2 
START  TIME  -  OOQ. 
DATE  1  020<10 


STOP 

♦  - 

aITt 

Tint 

DELIVER 

y  *♦  ♦ 

PICK  UP 

OftOER 

STAY 

T  IME 

i 

lbO  2 

009 

7 

PALLETS 

49 

3 

*  SPLIT 

2 

ie>07 

ol  0 

7 

PALLETS 

49 

3 

•SPLIT 

3 

loO  2 

034 

7 

PALLETS 

49 

3 

•  SPLI  T 

*» 

1»07 

039 

7 

PALLETS 

49 

3 

•SPLIT 

s 

lb02 

05  5 

7 

PALLETS 

a9 

3 

•SPLIT 

b 

1  p  U  7 

90  0 

7 

PALLETS 

49 

3 

*  SPLIT 

7 

loQ2 

916 

7 

PALLETS 

49 

3 

•  SPLIT 

a 

lbO  7 

921 

7 

PALLtTS 

*•  9 

3 

♦SPLIT 

s 

loO*t 

93  7 

7 

PALLETS 

23 

3 

♦SPLIT 

10 

22*. 

luO  0 

7 

PALLE  TS 

23 

3 

• SPLI T 

1 1 

lo  04 

1026 

4 

pallets 

23 

3 

*  SPLI  I 

1  2 

22  *» 

1031 

*♦ 

PALLETS 

23 

3 

*  SPLIT 

ROUTE  ENOEO 
LOCATION  =  1  0  7  fl 
Tint  =  104? 

NO  OF  FALL-TS  MOVlO  =  39 


192 


1 


WE  HCLt  -  ST  J 
ST  AS  T  T I  HE  -  800. 
OATE  102080 


STOP  SITE 

Tint 

OtL  IWtfi 

PICK  UP 

0  RDER 

STAY  T IME 

1  lb  Oh 

O  O  H 

7  PALLETS 

25 

3  ♦ SPLI T 

2  23 

8  3  o 

7  P-LLf'TS 

25 

3  *  SPLIT 

3  1  oO  4 

■^0  8 

♦  PALLETS 

25 

3  »  SPLI  T 

A  23 

912 

-  PALLETS 

25 

3  ‘SPLIT 

5  lo  Jh 

9-2 

7  PALLETS 

2  A 

3  ‘SPLIT 

b  b*»  7 

95  3 

I  PALLETS 

2A 

3  » SPLIT 

7  1o0a 

102b 

A  PALLETS 

2A 

3  ‘SPLIT 

O  bA? 

1h  30 

-  pallets 

29 

3  ‘SPLIT 

SOUTc  ENDED 
LOCATIOM  =10  78 
TIME  =  1053 

NO  OF  P-LL'TS  MOWED  =  22 


183 


VE  HlLLc 
START  T  I  Me. 

UA  Tf 


TR  1 
'ICO  . 
io20eo 


STOP 

>0  00  0* 

SITE 

TIME 

►  #  ♦  ♦ 

DtLlVeR 

*  ♦  ♦  • 

PICK  UP 

OSUE-? 

ST  AT  TIME 

l 

b4  N 

o  0  2 

12 

PALlEI 3 

6 

12 

2 

198 

815 

1  2 

PALLe  TS 

0 

12 

3 

D*»  W 

8  2  d 

12 

PALLeTS 

ii 

12 

4 

1  bO  b 

Ok  6 

1  2 

PA  LLr.  TS 

1 1 

12 

!? 

1  bO  3 

no  a 

1 1 

PALLE  TS 

28 

1 1 

b 

loO  5 

912 

1  1 

PALLeTS 

28 

11 

11 

PALLE  TS 

38 

9 

7 

SM 

93b 

11 

PALLeTS 

36 

11 

6 

o  7 1 

95  1 

11 

PALLETS 

13 

11 

9 

DO  t 

100  3 

l 

PALLETS 

53 

3 

1  0 

SM 

1C  0  d 

1 

PALLETS 

53 

3 

1 1 

PALLETS 

13 

9 

1 1 

o*  H 

1021 

11 

PALLETS 

10 

11 

12 

X10 

1C  42 

1  1 

PALLE  TS 

10 

11 

13 

loQ3 

1113 

11 

PALLE  TS 

30 

11 

1  4 

H3a 

113*. 

1 1 

PALLeTS 

20 

11 

15 

lbQ3 

1151 

11 

PALLETS 

29 

11 

1  fa 

1303 

1213 

11 

PALLeTS 

29 

11 

ROUTE  tNOEO 
LOCATION  =107*t 
I  I  Me  =  122  7 

NO  OF  PALLtTS  MOt/eO  =  91 


184 


VEHICLE  -  TT  1 
START  TIME  -  MOO. 

J  ATE  1020M0 


STOP 

SITE 

»•••*«  •  < 

TIME 

0£L I  VER 

PICK  UP 

ORDER 

STAY  T IME 

1 

SM 

SO  2 

10  PALLETS 

1 

22 

2 

NWS 

90  9 

10  PALLETS 

1 

22 

3 

IdO  5 

1C  1  D 

6  PALLETS 

2 

lb 

4 

1 

1093 

6  PALLETS 

4 

19 

5 

NWS 

115  6 

A  PALLETS 

<♦ 

19 

6  P«LLt  TS 

2 

11 

ROUTt  uNOEC 
LOCATION  =  10?A 
TIHE  =  1310 

NO  OF  PALLETS  MCVcO  =  24 


INS 

J 


VEHlCLc.  -  IT  1 
START  T  I  lit  -  AQG. 

0  A  T£  1  0  2  G  a  i; 


STOP 

l  *#  *  *4 

allt. 

T  IHl 

4  »+»«»♦ 4 

1  ♦  ♦  ♦ 

l)  t.  L  I V  f.  R 

44444 4444# 

4444 

p  :c<  up 

4 I4444444* 

ORQE* 

STAY 

1 

bbt 

8  02 

10 

PALLETS 

51 

22 

2 

141 

833 

1  0 

PALLETS 

5 1 

22 

3 

IbO* 

887 

10 

PALLETS 

oo 

22 

4 

b*.7 

' 1 ♦  9 

1  0 

PA  llets 

bb 

22 

5 

fcsrt 

11/31 

1G 

FALLE  TS 

8 

22 

b 

224 

1102 

10 

P- LLE TS 

9 

22 

7 

b  7E 

113b 

13 

PALLE  TS 

It 

22 

a 

xia 

1210 

1  u 

PALLETS 

1 1 

22 

A  3  U  T  c.  L  ille  I 
LOCATION  =  1  0  7  8 
T  I  Me  -  12  4* 

NO  OF  PALL'-Tj  MOVlU  -  40 


186 


1 


1 


VEHICLE  -  IT  2 
ST  Art  T  TIME.  -  *00. 
DATE  1  0206  0 


STOP 

SI  Tfc 

TIME 

DEL  I  Jt-k 

PICK  UP 

0  SOER 

STAY 

r  i*E 

l 

t>  7E 

60  2 

S 

PALLETS 

20 

19 

2 

1  d2  1 

629 

6 

PA  LLq TS 

20 

19 

3 

1605 

65  0 

3 

FALLE  TS 

37 

10 

<♦ 

191 

902 

1 

PALLETS 

33 

7 

5 

IdO  2 

910 

1 

PALLETS 

47 

7 

2 

PALLETS 

4 

t 

1  oO  5 

923 

1 

PALLETS 

-2 

7 

7 

6-7 

95  9 

1 

pa  ll: ts 

-2 

7 

2 

PA  LLE  TS 

46 

4 

6 

6-6 

1011 

1 

PALLETS 

-7 

7 

9 

Xl  0 

l  u  2  7 

1 

p-llets 

33 

7 

1  0 

22- 

1 0  3  o 

3 

PALLr  TS 

37 

10 

1  1 

loQ  5 

110  9 

10 

PALLETS 

40 

22 

•SPLIT 

1  2 

X10 

1154 

10 

P  «  L  L  r.  T  S 

40 

22 

*  SPLIT 

fcOUTE  tNOtT 
LOCATION  =1026 
Tint  =  l22r 

NO  OF  PALLt  TS  MCOlO  =  26 


187 


URDtKb  NOT  RGVtL 


ORUcR 

-rS. 

2FRGM 

.  1  EO  2 

TO 

1  50  7 

OK  06  R 

27, 

1 1 F  Run 

.  1  o03 

TO 

1 17  2 

OR  OEM 

2b, 

IF  ROM 

•  1  bO  R 

TO 

1 

OROtR 

oy  . 

3F  ROM 

.  Io05 

TO 

lb  J  b 

OKOtR 

Rj. 

IF  ROM 

,  1  tu  b 

TO 

1  o  2  1 

OkOc  R 

*  R  0  * 

1 F  rum 

.  i  bee 

TO 

Xl  j 

OROt  R 

Rl  . 

1  FROM 

•  1  bob 

TO 

20 

OROtR 

b  U  • 

IF  " OM 

•  b  fct 

TO 

1  y  j  3 

OKOtK 

21, 

IF  ROM 

,  b  7 1 

TO 

R  y 

OROt  R 

1?  . 

1  F  ROM 

•  o  7E 

TO 

b  1 

0*02  K 

22, 

1  F  ROM 

,  b  ( t 

TO 

o  •, 

OROtK 

10. 

IF  ROM 

,  t  it 

TO 

b  y  7 

OROtR 

iy . 

IF  RQm 

,  b  7  £ 

TO 

1 

ORUcR 

lb. 

IF  ROM 

.b  7f 

TO 

1  b 

CKOtK 

lb. 

IF  ROM 

,  r  7 1 

TO 

23 

OROt  R 

y  o. 

IF  ROM 

.  o  7  h 

TO 

SM 

OROtR 

7, 

bF  ROM 

,  198 

TO 

117  2 

OROt  R 

57. 

IF  ROM 

.  OM 

TU 

1  17  2 

OROt  R 

3b, 

2 F  RUM 

.  1  bu2 

TO 

'NJ 

L> 

UKOER 

o  , 

bF  R  OM 

.1122 

TO 

iy  3 

OkOE  R 

y . 

12FR0M 

,  1 

TO 

N  R  S 

OROER 

3. 

bF  RuM 

.23 

TO 

Nr  i 

r 


SAMPLE  -  A VS 2  RUN,  SPECIAL  ORDERS 
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/ACJ-A095  729  DAVID  M  TAYLOR  NAVAL  SHIP  RESEARCH  AND  DEVELOPMENT  CE— ETC  F/G  12/2 

AUTOMATIC  VEHICLE  SCHEDULING  (AVS)  PROGRAMMER'S  INSTRUCTION  MAN— ETCIUI 
FEB  81  R  WINCHELL#  R  MELTON •  M  NATRELLA 

Unclassified  dtnsrdc-81/017  nl 


snat 

ESM 

Mb 

AVS  SPECIAL  OROEk  PROGRAM 


10/20 /80 
800.0 

ORDERS 


1 

14 

PALLETS 

PROM 

67  t 

TO 

NRS 

2 

10 

pallets 

FROM 

67  c 

TO 

SH 

3 

14 

PAlLlTS 

FROM 

67E 

TO 

loOlA 

SPECIAL 

ORDER  TIHE 

2 

90C. 

3UMP  OPTION  =  NO 


VEHICLES  SELECTEO 


1  VEHICLE  ST  4  CAPACITY 

2  VEHICLE  ST  5  CAPACITY 

3  VEHICLE  TT  2  CAPACITY 


7  PALLETS. 
7  PALLETS. 
14  PALLETS. 


ROUTE  DURATION 
ROUTE  DURATION 
ROUTE  DURAT ION 


24  0.0  HI  NS. 
240.0  HINS. 
240.0  HINS. 


190 


VEHICLE  -  ST  4 
START  TIHE  -  «0Q. 
DATE  102060 


STOP 

4M 

SITE 

TIMt 

f4« 

DELIVER 

PICK  UP 

DRQER 

STAV 

TIHE 

l 

b7E 

902 

7 

PALLETS 

2 

3 

•SPCL* 

2 

SH 

90  7 

/ 

PmLLE TS 

2 

3 

*  SPCL* 

3 

67E 

912 

3 

PALLETS 

2 

3 

*  SPCL  * 

4 

SH 

91b 

3 

PALLETS 

2 

3 

•spcl* 

5 

67E 

920 

7 

PALLETS 

3 

3 

•SPCL* 

6 

1601 A 

932 

7 

PALLETS 

3 

3 

•SPCL* 

7 

67E 

94  4 

7 

PALLETS 

3 

3 

•SPCL* 

6 

lbOlA 

950 

7 

PALLETS 

3 

3 

•SPCL* 

ROUTE  ENDED 
LOCATION  =1076 
TIHE  =  1002 

NO  Of  PALLETS  MOV  c  0  =  24 


191 


*  3 

f 


VEHICLE  -  TT  2 


START 

TIME  -  8  00. 

DATE 

102080 

STOP 

site 

TIME 

OELIVER 

PICK  UP 

ORDER 

STAY 

TIME 

1 

67E 

90  2 

1*»  PALLETS 

t 

29 

•SPCL 

2 

NMS 

1015 

1*  PALLETS 

1 

29 

•SPCL 

3 

1 

1129 

12  PALLETS 

5 

26 

4 

NMS 

1239 

12  PALLETS 

5 

26 

ROUTE  ENDEO 
LOCATION  =107* 

TIME  =  1350 

NO  OF  PALLETS  MOVED  = 


26 


ORQERS  NOT  MOVED 


Ok  OcR 

-4*. 

2FR0N 

,1602 

TO 

1507 

OkOER 

27, 

11FR0N 

.  It0  3 

TO 

117  2 

OROER 

2c, 

IF  RON 

,1604 

TO 

1 

OROh  R 

3  9. 

3FR0N 

1 1  oQ  5 

TO 

1606 

OROcR 

*»3. 

IF  RON 

,1605 

TO 

1621 

OROhR 

•4111 

IF  RON 

,  1605 

TO 

X1S 

OkOck 

41. 

IF  RON 

.  1  cO  5 

TO 

23 

OkOcR 

9lli 

IF  RON 

.  6  6h 

TO 

1503 

ORDtR 

cl. 

IF  RON 

,  o  7E 

TO 

4  9 

Ok  Oh  R 

1 7, 

1 F  RON 

•  67E 

TO 

61 

OROcR 

22, 

IF  RON 

,b7E 

TO 

04 

OROhR 

la. 

IF  RON 

,  o  7E 

TO 

b‘,7 

OkOcR 

19. 

IF  RON 

,67  £ 

TO 

1 

OROcR 

16. 

IF  RON 

■  6  7E 

TO 

16 

OROcR 

16. 

IF  RON 

,67E 

TO 

23 

OROhR 

90. 

IF  RON 

,o7M 

TO 

SN 

OROhR 

7, 

6FR0N 

.  190 

TO 

1172 

OROhR 

57. 

IF  RON 

»SN 

TO 

1172 

OROER 

35. 

2FR0N 

,1502 

TO 

1621 

OROhR 

6. 

bF  RON 

,1172 

TO 

198 

OROER 

3, 

5FR0N 

,23 

TO 

NMS 
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SAMPLE  -  HISTORY  FILE  UPDATE  RUN 


19* 


f 


AYS  HISTORY  FILE  REPORT 
26JUN79 
SHIFT-  745.0 


OFLIYERIES 

i  n  A  i  ■  *  y  n  i 


WAREHOUSE  NAME 

TRUCK 

t  PALL : T  S ) 

~££OtJ-. 

_ IQ— 

— UAUU- 

BESULAS  — 

-ESEBSEHCt> 

--BACSL3S- 

1138 

A9ASF 
OFV  TN 

TT? 

14 

0 

12 

TTT 

14 

0 

12 

64F 

ST1 

1? 

0 

19T 

ISO  19 

TT1 

?  3 

3 

1  9" 

1  IT  8 

S  T  1 

12 

0 

if.n  ia 

ST  1 

5 

0 

ST? 

7 

0 

160  5 

TR1 

TO 

0 

*•5 

PEY  TN 

1  IT  8 

ST? 

?  4 

0 

23 

1ST 

TT  1 

14 

0 

TT? 

9 

0 

64W 

ST  1 

88 

1 

ST? 

5 

0 
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INITIAL  DISTRIBUTION 


Copies 

1  NAVMAT 

08T246  (LCDR  J.  Bland) 

1  NAVMATO  (Code  11) 

2  NPGS  (Library) 

3  FMSO 

1  Code  953  (J.  Blaylock) 

1  Code  953  (Dave  Polm) 

1  Code  953  (Bill  McDevitt) 

1  NAVSUPSCOL  (Athens,  GA  Lib) 

10  NAVSUP 

1  SUP  04112B  (Sandra  Jones) 

1  SUP  04141A  (Carol  Steward) 

6  SUP  043 

2  SUP  053 

(Bill  McClure) 

(CDR  Palma tier) 

8  NSC  CHARLESTON 

4  Code  400  (CDR  Dell) 

2  Code  61  (Bob  Owens) 

2  Code  61  (Bob  Lee) 

1  NSC  San  Diego  (Mr.  Osborne) 

1  NSC  Puget  Sound  (Code  43) 

1  NSC  Norfolk 

1  NSC  Oakland 

1  NSC  Pearl  Harbor 

12  DTIC 


Copies 

Code 

Name 

10 

5211.1 

Reports 

Distribution 

1 

522.1 

Unclassified 
Lib  (C) 

1 

522.2 

Unclassified 
Lib  (A) 

CENTER  DISTRIBUTION 


Copies 

Code 

Name 

1 

18 

G.H.  Gleissner 

2 

1809.3 

D.  Harris 

1 

185 

T.  Cor in 

20 

187 

R.  Melton 

DATE 

ILMED 


